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ABSTRACT 


Steady  and  unsteady  two-dimensional  f  lowfield  analysis  was 
conducted  for  a  Sikorsky  SSC-A09  airfoil  in  compressible,  high 
Reynolds  number  flows.  Limited  verification  with  experimental 
measurement  was  achieved.  Computational  methods  included  a 
steady,  linear  panel  method  with  compressibility  corrections; 
a  laminar  and  turbulent  boundary  layer  method;  an  unsteady, 
linear  panel  method;  and  a  numerical  solution  method  of  the 
thin  layer,  compressible,  Navier-Stokes  equations  using  a 
body-fitted  C-type  computational  grid.  The  Baldwin-Lomax, 
two-layer,  zero-equation  turbulence  model  was  used.  Wind 
tunnel  wall  interference  effects  were  ignored.  Steady  and 
unsteady  airloads  and  instantaneous  flow  pictures  are 
presented.  In  steady  flow  with  little  or  no  separation, 
computed  lift,  drag,  pitching  moment,  and  skin  friction 
coefficients,  as  well  as  displacement  thickness  and  boundary 
layer  velocity  profiles  at  several  angles-of -attack  were 
generally  found  to  be  in  good  agreement  with  experimental 
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I.  INTRODUCTION 


Historically  aeronautical  engineers  have  had  only  wind 
tunnel  and  flight  test  experiments  to  validate  aerodynamic 
theory,  often  at  great  expense.  In  today's  world  of  powerful 
supercomputers  and  advanced  personal  computers  with  vast 
memory  capability,  flowfield  solutions  once  thought  impossible 
or  prohibitively  expensive  are  becoming  feasible  in  this  new 
age  of  Computational  Fluid  Dynamics  (CFD) .  CFD  has  become  an 
effective  research  tool  in  understanding  complicated  fluid 
dynamics  phenomena.  Indeed,  as  illustrated  in  Figure  1.1,  the 
Theory,  Experiment,  and  CFD  triad  complement  each  other  as 
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well  as  add  a  new  dimension  to  the  validation  process. 
Experiment  and  CFD  can  now  be  used  to  complement  and  optimize 
each  other.  CFD  results  allow  in-depth  understanding  of  many 
physical  processes.  Transition  and  turbulence  models  can  be 
verified  and  code  robustness  (convergence  time  span)  can  be 
optimized.  Within  the  CFD  framework,  it  was  once  thought  that 
the  full  Navier-Stokes  equations  would  have  to  be  solved  to 
obtain  realistic  flows  over  an  airfoil  executing  maneuvers  in 
a  viscous,  compressible  medium.  Numerical  scheme  accuracy  and 
convergence  rates  are  complicated  by  the  various  length  scales 
of  the  viscous  effects  near  the  airfoil  and  those  of  the 
surrounding  inviscid  flow  field.  It  has  been  proven  that  more 
cost  effective  solution  methods  can  be  employed  that  make 
realistic  simplifications  to  the  governing  equations  and  allow 
moving  away  from  the  supercomputer  to  the  personal  computer 
thus  yielding  beneficial  results  at  greatly  reduced  time  and 
cost.  Ultimately,  the  overall  goal  would  be  the  completion  of 
the  design  process  using  only  CFD  methods. 

A  current  field  of  intense  investigation  is  the 
aerodynamics  of  a  rapidly  pitching  airfoil.  Two  effects  are 
of  major  interest: 

#  Augmented  lift  created  during  dynamic  stall  while 
performing  aircraft  combat  maneuvers  (ACM)  in  high 
Reynolds  number  flows. 

#  Dynamic  stall  on  a  retreating  helicopter  rotor  blade 
during  high-speed  forward  flight. 
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Dynamic  lift  and  stall  are  dominated  by  the  generation  of  a 
vortex  near  the  leading  edge  of  the  suction  surface  and  its 
subsequent  convection  over  the  airfoil  surface.  This  sequence 
of  events  is  discussed  and  shown  in  great  detail  in  Chapter  V. 

The  intent  of  this  thesis  is  the  CFD  investigation  of  the 
unsteady  aerodynamics  of  a  Sikorsky  SSC-A09  airfoil  undergoing 
high  pitch  rate  maneuvers.  The  experimental  results  of  Lorber 
and  Carta  [Ref.  11]  are  used  for  validation  of  the  computed 
solutions.  The  investigation  goals  are: 

•  Determine  the  influence  of  the  leading  edge  stall 
vortex  on  the  unsteady  aerodynamic  response  during  and 
after  stall. 

i  Determine  the  location  of  any  separation  bubbles. 

•  Determine  the  location  and  extent  of  the  boundary 
layer  transition. 

%  Determine  compressibility  effects  in  inviscid  and 
viscous  flows. 

•  Determine  the  effect  of  any  supersonic  regions  and 
shock  waves  created  during  pitch  up  ramp  or  sinusoidal 
maneuvers . 

§  Accurately  predict  pressure  loads,  forces,  and 
moments . 

•  Determine  the  most  efficient  and  cost  effective  CFD 
approach  that  achieves  the  desired  level  of  accuracy. 
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In  the  following  sections  the  methods  which  were  used  to 
analyze  the  above  flow  phenomena  are  presented  first.  A 
presentation  of  the  numerical  results  and  comparisons  with 
experiment  follows.  Each  section  includes  an  Appendix  which 
contains  a  complete  user's  guide  for  the  reader  who  wishes  to 
apply  the  codes  to  similar  problems.  Finally,  a  discussion  of 
all  the  results  is  presented  and  some  conclusions  with 
recommendations  for  future  research  are  given. 
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II.  STEADY,  LINEAR  PANEL  CODE 


A.  POTENTIAL  FLOW  THEORY /BACKGROUND 

The  flow  field  is  assumed  to  be  steady,  incompressible, 
inviscid  and  irrotational.  A  steady  flow  field  implies  the 
fluid  velocity  and  pressure  depend  only  on  the  spatial 
coordinates  and  not  on  time.  Flow  field  incompressibility 
implies  that  the  divergence  (the  time  rate  of  change  of  volume 
of  a  moving  fluid  element  per  unit  volume)  of  the  velocity 
vector  is  zero  as  indicated  in  Equation  2.1,  and  that  density 
is  a  constant  throughout. 

V  •  V  =  0  (2.1) 

Flow  field  irrotationality  implies  that  vorticity  is  zero 
everywhere.  Equation  2.2,  and  that  a  scalar  function  must 
exist  such  that  the  velocity  is  given  by  the  scalar  function's 
gradient  as  shown  in  Equation  2.3. 

V  X  V  =  0  (2.2) 

V  4>  -  V  (2.3) 

Consequently,  irrotational  flows  are  often  described  as 
'potential  flows'. 

A  flow  field  that  is  both  incompressible  and  irrotational 
must  satisfy  Laplace's  equation: 
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(2.4) 


=  ♦**+  ♦yy  =  0 

Since  Laplace's  equation  is  a  linear  homogeneous  second  order 
partial  differential  equation,  the  principle  of  superposition 
holds.  Complicated  flows  can  be  created  by  linearly  combining 
elementary  flows  that  are  both  incompressible  and 
irrotational.  Uniform,  source,  and  vortex  flows  are  examples 
that  meet  these  conditions  (Anderson  [Ref. 2]). 


Airfoil  Geometry  and  Coordinate  System 


1.  Reference  Frame 

The  two-dimensional  airfoil  geometry  and  (x,y)  and 
(r,0)  coordinate  systems  are  described  in  Figure  2.1.  The 
airfoil  surface  is  divided  into  a  number  (N)  of  straight  line 


segments  normally  called  'panels’.  N+l  surface  points, 
normally  called  nodes,  distinguish  the  N  panels.  Numbering 
convention  starts  from  the  lower  trailing  edge  and  proceeds 
clockwise  around  the  airfoil  making  the  first  and  last  point 
the  same.  Panel  length  is  arbitrary,  but  enforcement  of  the 
trailing  edge  Kutta  condition  (the  trailing  edge  flow  must 
depart  smoothly  since  it  is  a  stagnation  point)  requires  that 
the  first  and  last  panel  length  be  the  same.  Unit  normal 
vectors,  ft,  are  perpendicular,  positive  outward  from  the  panel 
surface.  Unit  tangent  vectors,  t,  are  parallel  to  the  panel 
surface,  positive  in  the  clockwise  direction. 


Angle-of -Attack  Standardization 
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2.  Airfoil  nomenclature 

Standard  airfoil  nomenclature  is  used  as  displayed  in 
Figure  2.2.  Summary  of  nomenclature  (Kuethe  and  Chow  [Ref. 
10]) : 

•  Chord  Line.  The  straight  line  connecting  the  leading 
and  trailing  edges. 

#  Chord.  The  distance  between  the  leading  and  trailing 
edges  along  the  chord  line. 

§  Mean  Camber  Line.  The  locus  of  points  one-half  way 
between  the  upper  and  lower  surface  measured 
perpendicular  to  the  mean  camber  line  itself. 

#  Symmetric  Airfoil.  An  airfoil  where  the  mean  camber 
and  chord  lines  are  the  same. 

#  Aerodynamic  Center.  The  point  on  the  airfoil  where 
the  moment  is  independent  of  angle-of -attack. 

•  Center  of  Pressure.  The  location  where  the  resultant 
of  a  distributed  load  effectively  acts  on  a  body.  The 
point  about  which  the  aerodynamic  moment  is  zero. 

•  Geometric  Angle-of -Attack  (a) .  The  angle  between  V. 
and  the  chord  line. 

§  Zero-Lift  Line.  A  line  on  the  airfoil  parallel  to  the 
flight  path  and  passing  through  the  trailing  edge  when 
the  airfoil  is  oriented  to  create  zero  lift.  The 
zero-lift  and  chord  line  are  the  same  for  a  symmetric 
airfoil . 
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•  Angle -of -Attack  at  Zero  Lift  (a^0)  •  The  angle  between 
the  chord  and  zero-lift  lines. 

#  Absolute  Angle-of -Attack  (a,) .  The  angle  between  V. 
and  the  zero-lift  line. 

aa  =  a  -  a^.0  (2.5) 

3.  Singularity  Distribution 

The  airfoil  velocity  potential  (♦)  is  determined  by 
decomposing  the  potential  flow  field  into  a  free  stream  flow, 
and  placing  a  source  and  vortex  distribution  at  each  control 
point  (mid  point)  of  each  panel.  Vortex  flows  provide 
circulation/ lift  and  here  vortex  strength  (y)  is  fixed. 
Source  flows  accurately  represent  body  thickness.  Source 
distributions  (q)  are  allowed  to  vary  from  panel  to  panel. 
The  total  potential  is  described  below.  These  integrals  are 
calculated  along  the  surface  contour  s  in  polar  coordinates. 


® total  4*»  +  4*  source  +  4* vortex  (2.6) 

4>.  =  vm  X  [  x  cosa  +  y  sina  ]  (2.7) 

4>source  =  fg  {-  q~~  Inr  J  ds  (2.8) 

4* vortex  ”  lg  {  6  }  dS  %2*9> 
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Integration  is  performed  on  each  panel  along  a  straight  line 
where  qA  and  y  are  constant  and  then  all  the  panels  summed. 
The  velocity  is  then  obtained  from  V$  . 

4.  Influence  Coefficients 

Influence  coefficients  provide  an  algebraic  system  of 
linear  simultaneous  equations  that  ease  numerical  solution. 
An  influence  coefficient  is  defined  by  the  velocity  induced  at 
a  field  point  (on  the  airfoil  surface)  by  a  unit  strength 
singularity  (Source  and  Vortex)  distribution  on  one  panel. 
Nowak  [Ref.  13),  Teng  [Ref.  15),  and  Tuncer  [Ref.  16)  provide 
detailed  analysis  of  geometrical  quantities,  equations  and  the 
numerical  solution  scheme. 

a.  Boundary  Conditions 

Two  boundary  conditions  must  be  satisfied.  The 
first  is  the  flow  tangency  condition  at  all  control  points 
(the  mid  point  of  each  panel) .  This  is  accomplished  by 
requiring  the  normal  component  of  velocity  at  the  control 
point  to  be  zero  for  all  panels.  The  second,  the  Kutta 
condition  requires  smooth  flow  leaving  the  trailing  edge,  and 
is  accomplished  by  equating  the  upper  and  lower  pressures  at 
the  trailing  edge.  This  ir  enforced  by  equating  the 
tangential  velocities  on  the  first  and  Nth  panel. 

5.  Coefficient  of  Pressure  (Cp) 

Once  the  source  strengths  (qj  and  vortex  strength  (y) 
are  calculated,  the  normalized  velocity  (Vtotal/v„)  j  is  computed 


at  each  control  point.  Using  Bernoulli's  equation,  Equation 
2.10,  the  incompressible  flow  Coefficient  of  Pressure  is 
computed . 


=  1 


(2.10) 


a.  Pressure  Compressibility  Correction 

For  low  Mach  number  flows,  less  than  M=.3,  the 
density  variation  in  an  inviscid  flow  is  negligible  (less  than 
a  5%  variation,  Anderson  [Ref.  2]).  For  higher,  subsonic 
(M«<.7)  Mach  number  flows,  a  compressibility  correction  to  the 
incompressible  data  is  achieved  by  using  the  'Prandtl-Glauert ' 
rule  derived  from  small  perturbation,  linearized  velocity 
potential  theory: 


Cp 

*  incamp 


f  i  - 


(2.11) 


6.  Force  and  Moment  Coefficients 

The  force  and  moment  coefficients  are  computed  by 
integration/ summation  of  the  pressure  distribution  assuming  a 
constant  CP  on  each  panel.  The  total  force  on  a  single  panel 
would  be  CPi* ds .  Figure  2.3  details  the  required  geometry. 
Airfoil-fixed  forces  for  panel  i  are: 
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(2.12) 


sin0  •  fs  cost  *  ~ 
crai  =  CPt  x  ds  x  sinp  =  CPj  x  dy  (2.13) 

crTt  =  CPl  x  ds  x  cosp  =  CPj  x  dx  (2.14) 


Figure  2.3 

Force  and  Moment  Geometry 


Integration  of  forces  over  N  panels  with  respect  to  the 
airfoil-fixed  coordinate  system  (negative  sign  on  CFx  due  to 
the  sign  convention  of  positive  tangential  velocities  in  the 
clockwise  direction  around  the  airfoil)  are  shown  in  Equations 
2.14  and  2.15: 
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(2.15) 


N 

CpM  ~  ~  ^  ^  y i* i  -  Yi  ^ 

lil 


s 

Cp,  ~  ^  Cpi  ^  Xi*  1  “  Xi  ^ 


(2.16) 


Rotation  with  respect  to  the  free  stream  direction  (tangent 
for  drag  and  perpendicular  for  lift)  is  described  in  Equations 
2.17  and  2.18: 


II 

Cy  cosa 

rY 

Cr* 

sina 

(2.17) 

- 

Cp  cosa 

r  X 

+  Cpy 

sina 

(2.18) 

The  moment  is  taken  about  the  quarter-chord  point  from  each 
control  point  (xm,ym)  and  summed: 

N 

C.  =  ^  cPl  {  (  xi*  1  -  *i  )(**,-  -25  )♦  {  yin  -  Yi  )  ymi  } 

(2.19) 


7.  Thin  Airfoil  Theory  Prediction 

One  of  the  basic  assumptions  of  two-dimensional 
inviscid  theory  holds  that  the  flow  always  closes  smoothly  and 
completely  around  the  trailing  edge,  therefore,  integrally 
producing  aero  pressure  drag  (d'Alembert's  paradox).  Drag  is 
primarily  due  to  viscous  effects  which  generate  frictional 
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shear  forces  at  the  surface  eventually  causing  flow 
separation.  D'Alembert's  paradox  is  also  true  for  subsonic 
compressible  flow  since  the  compressible  and  incompressible 
pressure  coefficients  differ  only  by  a  constant.  This  can  be 
proven  since  there  is  no  locally  supersonic  flow  that  would 
create  wave  drag.  Inviscid  flow  theory  has  proven  to  be  in 
good  agreement  with  experiment  in  the  linear  region  of  the  Cit 
curve  where  there  is  no  flow  separation  (Anderson  [Ref.  2]). 
Thin  airfoil  theory  predicts  that  for  a  symmetric  airfoil: 

#  The  lift-curve-slope  is  2n. 

#  The  aerodynamic  center  and  the  center  of  pressure  are  at 
the  quarter-chord  point. 

For  a  cambered  airfoil: 

t  The  lift-curve-slope  is  2Jt. 

#  Only  the  aerodynamic  center  is  at  the  quarter-chord  point 
and  the  center  of  pressure  varies  with  Cj . 

8.  The  Supercritical  Airfoil 

Airfoil  quality  and  efficiency  are  measured  by  its  L/D 
which  determines  aerodynamic  efficiency  and  CLmax  which 
determines  stall  speed  and  is  critically  dependent  upon 
airfoil  thickness.  The  supercritical  airfoil  was  the  result 
of  Richard  T.  Whitcomb’s  (working  at  The  National  Aeronautics 
and  Space  Administration  -  NASA)  development  of  two- 
dimensional  turbulent  airfoils  with  good  transonic  behavior, 
improved  drag  divergence  Mach  numbers,  and  good  low-speed 


14 


maximum  lift  and  stall  characteristics.  The  concept  was  based 
on  obtaining  locally  supersonic  flow  on  the  upper  surface  with 
an  isentropic  recompression.  As  the  airflow  approaches  the 
speed  of  sound,  a  local  area  of  supersonic  flow  extending 
vertically  appears  over  the  upper  surface.  On  a  conventional 
airfoil,  this  flow  would  terminate  in  a  shock  wave  at  about 
mid-chord  producing  significant  losses.  Separation  of  the 
boundary  layer  is  then  aggravated  by  the  shock  induced 
pressure  rise  superimposing  on  an  adverse  pressure  gradient. 
The  supercritical  airfoil  allows  the  shock  to  position  itself 
significantly  aft  of  mid-chord  producing  a  more  even  upper 
surface  pressure  distribution.  The  resulting  airfoil  series 
was  characterized  by  a  large  leading  edge  radius,  less 
curvature  across  the  upper  surface  middle  region  (limiting 
flow  acceleration) ,  and  aft  camber  where  its  influence  is  a 
maximum  (Harris  [Ref.  8]). 

B.  CODE  VALIDATION 

1 .  Computer  Codes 

Many  panel  codes  based  on  steady,  incompressible, 
inviscid  flow  over  arbitrary  airfoils  have  been  developed. 
This  paper  uses  versions  written,  and  subsequently  modified, 
by  Nowak  [Ref.  13]  and  Teng  [Ref.  15].  Required  input 
consists  of  angle-of-attack  in  degrees  and  the  number  of 
airfoil  panels.  Normalized  velocities  and  pressure 
coefficients  at  each  control  point  are  produced.  A  complete 
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users  guide  for  the  Airfoil. f  and  Panel. f  programs  are 
provided  in  Appendix  A. 

2.  The  NACA  0012  Symmetric  Airfoil 

a.  Geometry  and  Output  Verification 

A  NACA  0012  symmetric  airfoil  was  chosen  to 
investigate  the  effects  of  increasing  panel  number  and 
compressibility.  Figure  2.4  illustrates  a  typical  100  panel 
airfoil  generated  by  the  airfoil. f  program.  Excellent 
agreement  between  calculated  Pressure  Coefficient  and  results 
obtained  by  Anderson  [Ref.  2]  at  9°  angle-of-attack  is  shown 
in  Figure  2.5.  Compressibility  effects,  an  increased  suction 
peak  with  increasing  Mach  number,  on  a  symmetric  airfoil  are 
also  demonstrated. 

b.  Forces  and  Moment  Comparison 

Lift,  drag,  and  pitching-moment  coefficient  as  a 
function  of  angle-of-attack  and  panel  number  are  displayed  in 
Figures  2.6  through  2.8.  The  number  of  panels  has  little 
effect  on  calculated  lift  and  only  a  slight  effect  on 
calculated  moment.  However,  Figure  2.8  graphically  displays 
the  wide  variation  of  calculated  drag  as  a  function  of  panel 
number.  It  is  important  to  note  that  this  'calculated'  drag 
is  not  real.  In  reality,  the  integral  pressure  drag  should  be 
zero  as  indicated  in  section  A. 7.  As  this  figure  illustrates, 
the  suction  peak  forces  cannot  be  exactly  resolved  when  a 
summation  is  made  over  N  discrete  panels.  Further 
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investigation,  Figure  2.9,  reveals  that  airfoil  thickness  also 
plays  an  important  role.  The  leading  edge  suction  peak  is 
more  easily  resolved  on  thicker  airfoils.  Compressibility 
effects  are  displayed  in  Figures  2.10  through  2.12  -  Lift, 
drag,  and  pitching-moment  coefficient  magnitude  increase  with 
increasing  Mach  number. 

c.  The  Aerodynamic  Center 

Thin  airfoil  theory  predicts  the  aerodynamic  center 
to  be  at  the  quarter-chord  point  (section  A. 7).  Figure  2.13 
illustrates  the  pitching-moment  coefficient  as  a  function  of 
Mach  number  and  pivot  point  (the  point  about  which  all  moments 
are  taken).  The  aerodynamic  center  was  located  at  26.05%  for 
both  M=0 . 2  and  M=0.4.  Kuethe  and  Chow  (Ref.  10]  state  that 
the  position  of  the  aerodynamic  center  is  a  function  of 
airfoil  thickness,  geometry  (camber),  and  viscosity.  Here  the 
thickness  effect  is  seen  as  moving  the  aerodynamic  center  aft. 

3.  The  Eppler  E585  Airfoil 

This  airfoil  was  designed  for  sailplanes  in  low 
Reynolds  number  flows.  A  71  panel  geometry  is  displayed  in 
Figure  2.14.  The  angle-of-attack  for  zero  lift  is  5.53°. 
Good  agreement  was  achieved  between  the  panel  code  calculation 
and  Eppler' s  [Ref.  7]  measured  velocity  distributions,  Figure 
2.15.  Only  slight  variation  was  identified  at  the  trailing 
edge  that  is  easily  resolved  by  splining  in  additional  panels. 
Figures  2.16  through  2.19  display  compressibility  effects  on 
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this  cambered  airfoil.  Compressibility  enhances  lift  and  a 
more  pronounced  suction  peak  is  observed. 

C.  THE  SIKORSKY  6SC-A09  SUPERCRITICAL  AIRFOIL 

1.  Airfoil  Geometry 

This  is  a  9%  thick,  supercritical  airfoil  (section 
A. 8)  used  in  the  Lorber  and  Carta  experiment  [Ref.  11].  The 
original  geometry  consisted  of  132  surface  coordinates  (131 
panels)  as  shown  in  Figure  2.20.  The  trailing  edge  was 
modified.  Figure  2.21,  to  meet  Kutta  condition  requirements: 
A  sharp  trailing  edge,  and  the  first  and  last  panel  having  the 
same  length.  The  resulting  surface  coordinates  were  manually 
entered  into  the  points.dat  input  file. 

2.  Lorber  and  Carta  Experimental  Data 

Lorber  and  Carta  [Ref.  11]  completed  an  experiment 
studying  the  aerodynamics  of  dynamic  stall  penetration  at 
constant  pitch  rate  and  free  stream  Mach  numbers  of  0.2 
through  0.4  corresponding  to  a  Reynolds  number  of  two  through 
four  million  using  the  Sikorsky  SSC-A09  airfoil.  The  two- 
dimensional  tunnel  experiment  obtained  dynamic  stall  data  at 
conditions  representative  of  full-scale  helicopter  rotor 
blades  and  maneuverable  combat  aircraft.  A  17.3  inch  chord 
wing  was  oscillated  in  pitch  using  both  ramp  and  sinusoid 
motion.  Wind  tunnel  wall  effects  were  not  accounted  for. 

Detailed  aerodynamic  response  was  obtained  from  72 
miniature  pressure  transducers  and  eight  surface  hot  film 
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gages.  Unsteady  data  included  36  constant  speed  ramps  and 
nine  sinusoidal  oscillations.  Ramp  motion  was  a  modified 
motion  consisting  of  an  initial  delay,  a  constant  rate 
increase  to  maximum,  and  then  a  second  delay  at  maximum. 
Force  and  pitching -moment  coefficients  were  determined  by 
integrating  pressures  over  the  airfoil  using  the  following: 


*~N  = 

1 

QC 

f(Piow-Pup)&< 

(2.20) 

i  /< 

P low  Pup) 

(2.21) 

1 

_ •> 

[  (^low 

-Pup)  (x-  0.25 c)  dx 

(2.22) 

qc 2 

J 

CL  = 

CN  cos  a  -  Ccsina 

(2.23) 

*-D  = 

Cccosa  +  cwsina 

(2.24) 

3.  Panel  Number  Effects  on  Forces  and  Moment 

Lift,  drag,  and  pitching-moment  coefficient  as  a 
function  of  panel  number  and  angle-of-attack  are  illustrated 
in  Figures  2.22  through  2.24.  Panel  density  was  evenly 
increased  around  the  leading  edge  using  a  spline  program  to 
stimulate  peak  suction  resolution.  A  total  of  184  panels  was 
found  to  minimize  the  calculated  drag  resulting  in  a  maximum 
Cd  of  .004  at  15°  angle-of-attack.  As  before,  the  lift 
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coefficient  was  found  insensitive  and  the  moment  coefficient 
was  found  to  be  only  slightly  sensitive  to  panel  number. 

4.  Force  and  Moment  Results 

Panel  computed  and  Lorber  and  Carta  measured  pressure 
coefficient  as  a  function  of  Mach  number  and  angle-of-attack 
is  illustrated  in  Figures  2.25  through  2.32.  Reasonable 
agreement  was  achieved  at  small  angles-of -attack  (0°  to  9°)  . 
Increasing  angle-of-attack  and  using  compressibility 
corrections  caused  deviation  from  measured  values. 

Lift  coefficient  as  a  function  of  Mach  number  and 
angle-of-attack  for  calculated  and  Lorber  and  Carta  measured 
values  are  displayed  in  Figure  2.33.  Only  slight  deviation  is 
observed  at  M=0.2  through  10°  angle-of-attack.  However,  the 
compressibility  effect  calculated  by  panel. f  was  in  the 
opposite  direction  (increasing  CL„  with  increasing  Mach  number) 
to  that  measured  by  Lorber  and  Carta. 

Moment  coefficient  as  a  function  of  Mach  number, 
angle-of-attack,  and  pivot  point  calculated  by  panel. f  and 
measured  by  Lorber  and  Carta  are  displayed  in  Figures  2.34  and 
2.35.  The  general  compressibility  effect  is  accurately 
predicted  and  good  correlation  was  achieved  at  lower  angle-of- 
attacks.  The  aerodynamic  center  was  located  at  25.05%. 
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III.  CEBECI  2-D  LAMINAR  «  TURBULENT  BOUNDARY  LAYER  CODE 


A.  SHEAR  LAYER  THEORY/ BACKGROUND 

Limiting  the  flow  field  to  two-dimensional  with  no  body 
forces,  the  generalized  Navier-Stokes  equations  can  be 
obtained  when  Newton's  second  law  is  applied  to  a  finite 
control  volume  fixed  in  space  or  to  an  infinitesimally  small 
moving  fluid  element.  The  resulting  general  unsteady, 
compressible,  viscous  flow  Navier-Stokes  equations  become: 


JU) 

C 

+  d(pu2) 
dx 

+  d(puv)_  _  _  a 

by  o 

!P  .  ^  foxy 

1 x  dx  dy 

(3.1) 

JV) 

It 

=  d(p  uv) 
dx 

-  -1 

!P  ^  a°*y  .  dayy 
iy  dx  dy 

(3.2) 

The  unsteady  continuity  equation  results  when  the  conservation 
of  mass  principle  is  applied  to  a  finite  control  volume  fixed 
in  space  and  is  shown  in  Equation  3.3: 

$S  ♦  ^  *  0  <3-3> 

Since  a  complete  flow  field  solution  to  these  equations 
requires  a  vast  amount  of  computer  time  and  power,  a 
dimensional/order-of-magnitude  reduction  of  the  Navier-Stokes 
equations  results  in  the  boundary  layer  equations.  These 
equations  allow  a  practical  scheme  to  computationally  solve 
the  flow  field. 
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When  a  steady,  incompressible  flow  field  is  assumed,  the 
energy  equation  will  decouple  from  the  momentum  and  continuity 
equations  allowing  ease  of  solution.  Assuming  that  the  fluid 
behaves  as  a  Newtonian  fluid,  where  viscous  stress  is 
proportional  to  the  rate  of  fluid  strain,  assuming  constant 
flow  properties,  and  subtracting  out  the  continuity  equation 
the  x-component  of  the  momentum  equation  becomes: 


du 

U-fc 


+  v 


du 


pox  dx2  dy2' 


(3.4) 


where  v  is  the  kinematic  viscosity  (v  =  p/p) . 

There  are  three  types  of  fluid  momentum  transfer: 

9  Transport  by  fluid  mean  motion. 

#  Transfer  of  random  molecular  motion  (viscous 

stresses) . 

•  Transfer  by  turbulent  eddies  (mean  turbulent 

stresses) . 

Except  at  very  low  Reynolds  numbers,  viscous  stresses  are 
small  compared  to  the  rate  of  momentum  transfer  by  the  mean 
fluid  element  motion.  Instantaneous  flow  quantities  are 
replaced  by  a  mean  and  fluctuating  term  to  incorporate 
turbulent  flow  effects.  This  results  in  extra  stress  terms 
often  called  Reynolds  stresses. 
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The  basic  boundary  layer  theory  assumptions  are  that  the 
boundary  layer  is  very  thin  when  compared  to  the  body  length 
scale  (airfoil  chord),  and  the  flow  Reynolds  number  is  large. 
An  order-of -magnitude  analysis  of  the  x  and  y  turbulent  flow 
momentum  equations  result  in  the  steady,  two-dimensional, 
incompressible  Boundary  Layer  Equations  for  laminar  and 
turbulent  flows  (Cebeci  and  Bradshaw  [Ref.  5]): 


3u  .  dv 
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The  y-component  of  the  momentum  equation  implies  that 
pressure  is  constant  through  the  boundary  layer  in  the 
direction  normal  to  the  surface.  This  means  that  the  pressure 
distribution  at  the  boundary  layer  outer  edge  is  impressed 
directly  onto  the  surface  without  change.  This  assumption  is 
generally  true  as  long  as  one  stays  away  from  large  curvatures 
(Anderson  [Ref.  2]).  This  allows  division  of  the  flow  field 
into  an  inner,  the  viscous  boundary  layer  region,  and  an  outer 
region  where  viscous  stresses  are  negligible  and  thus  can  be 
treated  and  solved  using  incompressible,  inviscid  numerical 
methods.  Two  boundary  conditions  are  applied.  The  no  slip, 
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airfoil  surface  boundary  condition  is  represented  by  u=v=0. 
The  outer  boundary  layer  edge  condition  is  y=6  at  0=0,  (x) . 

1.  Turbulence  Model 

Turbulence  nodeling  is  used  to  relate  the  Reynolds 
shear  stress  term  of  Equation  3.7  to  the  local  mean-velocity 
gradient  allowing  numerical  flow  field  calculation.  This 
modeling  is  based  on  local  equilibrium  -  the  assumption  that 
the  transport  terms  are  small.  Prandtl  proposed  a  mixing 
length  model.  Equation  3.9,  similar  to  the  kinetic  theory  of 
gases  where  turbulent  eddies  are  assumed  to  be  discrete  and  to 
collide  and  exchange  momentum  at  distinct/discrete  intervals. 
Here,  1  is  a  characteristic  length  related  to  the  fluid 
turbulence  intensity  (Cebeci  and  Bradshaw  [Ref.  5]). 

-p  u7v7  =  pi2  j-|pj  (3.9) 

Boussinesq  proposed  a  mean  flow,  eddy-viscosity  model, 
Equation  3.10,  where  eB  is  termed  the  turbulent  eddy- 
viscosity  and  is  assumed  to  vary  less  rapidly  than  the  shear 
stress  term.  It  is  important  to  note  that  eddy-viscosity  is 
not  a  flow  property  and  depends  greatly  on  the  mean-velocity 
gradient  and  mixing  length  (Cebeci  and  Bradshaw  [Ref.  5)). 

-p  IFv7  =  p  €m  (3.10) 

The  Cebeci-Smith  eddy-viscosity  model,  Equations  3.11 
and  3.12,  is  used  for  separated  flow  computation  and  treats 
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the  boundary  layer  as  a  composite  layer  having  an  inner,  €Bi, 
and  an  outer,  €„0,  region  with  separate  empirical  formulations. 
The  inner  eddy-viscosity  defines  the  region  from  the  airfoil 
surface  outward  until  eni=€mo,  where  the  outer  eddy-viscosity 
takes  over  to  the  edge  of  the  boundary  layer  (Cebeci  and 
Bradshaw  [Ref.  5]). 

»  .16  R.?  [l  -  e  W]  t|2  V  la  I3-*1) 
(^f)  -  .0168  R.)  In.  -  /.)  Ytr  (3-12» 


2.  Transition  Model 

Laminar  to  turbulent  flow  transition  presents  a 
stability  problem  where  vortical  interaction  is  very  non¬ 
linear.  The  Chen-Tyson  transition  model  utilizes  a  region  of 
intermittency  that  is  controlled  by  the  intermittency  factor, 
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Ytr»  which  allows  turbulence  to  gradually  build  in  the 
streamwise  direction  creating  a  transition  zone  instead  of  a 
laminar  to  turbulent  transition  point. 

Michel's  empirical  correlation  curve  for  transition. 
Equation  3.14,  is  used  as  an  initial  estimate  for  transition 
location.  It  is  based  on  incompressible  and  constant  property 
flow.  See  Appendix  D  for  further  discussion. 
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B.  BL2D.F  OVERVIEW 

A  two-dimensional,  steady,  incompressible,  viscous  flow 
program  was  developed  by  Cebeci  and  Bradshaw  [Ref.  5]  to 
provide  solutions  to  the  (Thin  Shear  Layer)  boundary  layer 
equations  using  the  Cebeci-Smith  eddy -viscosity  turbulence 
model  and  the  Chen-Tyson  transition  model.  Required  inputs 
for  operation  are: 

$  An  external  velocity  distribution. 

#  Airfoil  surface  coordinates. 

#  Flow  Reynolds  number. 

#  A  natural  transition  point  estimate  (upper  and  lower) . 
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#  The  forward  stagnation  point  location. 

The  program  unwraps  the  surface  coordinate  onto  the  x-axis. 
A  Falkner-Skan  variable  transformation  is  made  to  analyze 
laminar  boundary  layers  and  to  reduce  the  turbulent  boundary 
layer  growth.  The  transformed  coordinates  are  nearly 
independent  in  the  streamwise  direction.  The  Keller-Cebeci 
box,  Newton's,  and  block  tridiagonal  methods  are  used  to  solve 
the  second  order  partial  differential  equations.  The  program 
generates  output  files  for  graphical  visualization  and 
interpretation : 

#  Skin  friction  coefficient 

#  Displacement  thickness 

#  Boundary  layer  velocity  profiles 

The  laminar,  transitional,  and  turbulent  boundary  layers  are 
calculated  starting  from  the  forward  stagnation  point.  A 
complete  users  guide  for  BL2D.F  is  located  in  Appendix  A. 

1.  Program  Hints 

Convergence  is  critically  dependent  on  the  upper 
surface  transition  point  input  and  to  a  lesser  degree  on  the 
forward  stagnation  point  input.  If  the  laminar  flow 
calculations  indicate  flow  separation  (a  separation  bubble) 
before  the  transition  point  can  be  calculated,  the  wall  shear 
becomes  negative  causing  solution  divergence  and  meaningless 


results. 


Transition  from  laminar  to  turbulent  flow  is  indicated 
where  Cf  reaches  a  minimum  and  then  dramatically  increases. 
Separation  is  indicated  when  Cf  reaches  zero  or  a  negative 
value.  Nowak  [Ref.  13]  discovered  that  the  program  can  handle 
mild  amounts  of  separation  with  a  symmetric  airfoil  at  angle- 
of -attack.  She  also  found  that  increasing  Reynolds  number 
decreases  the  probability  of  separation. 

C.  THE  HACA  0012  AIRFOIL 

The  boundary  layer  code,  bl2d.f,  was  validated  using 
previously  documented  results.  A  test  case  was  completed  at 
a  Reynolds  number  of  one  million  and  a  transition  location  of 
.38  X/C  and  presented  in  Figure  3.1.  Skin  Friction 
Coefficient,  CF,  and  Displacement  Thickness,  6*,  results  agree 
well  with  those  presented  in  Cebeci  and  Bradshaw  [Ref.  5]. 

Nowak  [Ref.  13]  presented  results  for  this  airfoil  at  a 
Reynolds  number  of  540,000.  BL2D.F  results  are  shown  in 
Figures  3.2  through  3.7.  Also  presented  are  the  variations  in 
CF  and  6*  outputs  as  a  function  of  computer  type:  Indigo  and 
Stardent.  Table  3.1  presents  the  various  input  parameters. 
Variation  in  CF  and  6*  outputs  appear  dependent  on  how  the 
specific  computer  handles  CF  as  it  approaches  zero  or  becomes 
negative.  Michel's  empirical  estimate  also  varied  between 
computers,  depending  on  input  (See  Appendix  D) .  As  expected, 
the  transition  point  moves  forward  on  the  upper  surface  as 
angle-of -attack  (a0)  increases.  The  Stardent  computed  a 
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slight  separation  zone  at  4°  a  located  at  0.25  X/C  and  at  6° 
a  located  at  0.05  X/C  when  the  Indigo  did  not.  Both  computers 
calculated  leading  edge  suction  separation  bubbles  at  10°  a 
but  at  slightly  different  positions.  Neither  computer  could 
arrive  at  a  converged  solution  at  greater  than  10°  «. 


TABLE  3.1 

NACA  0012  (100  FANEL8) 
INCOMPRESSIBLE  FLOW  AT  R«=540,000 
BOUNDARY  LAYER  TRANSITION  INPUTS 


r — 

Indigo 

Star dent  | 

«° 

Calculated 

Stagnation 

Point 

input 

Stagnation 

Point 

Michel’S 

Estimate 

Transition 

Point 

input 

Stagnation 

Point 

Michel ' e 

Estimate 

Transition 

Point 

0 

51 

51 

0.597 

0.578 

51 

0.597 

0.545 

2 

50 

51 

0.374 

0.390 

50 

0.379 

0.380 

4 

49 

48 

0.277 

0.219 

50 

0.212 

0.301 

6 

48 

48 

0.156 

0.054 

47 

0.092 

0.070 

8 

47 

47 

0.285 

0.027 

47 

0.045 

0.044 

10 

46 

46 

0.055 

0.075 

46 

0.055 

0.041 

D.  THE  SIKORSKY  SSC-A09  AIRFOIL 

The  boundary  layer  code  was  run  using  the  SSC-A09  airfoil 
and  calculated  CF  and  6*  results  as  a  function  of  Mach  number 
are  illustrated  in  Figures  3.8  through  3.13.  Table  3.2 
presents  the  various  input  parameters.  Again,  the  general 
upper  surface  transition  point  trend  is  to  move  forward  as 
angle-of-attack  increases.  Compressibility  causes  CF  and  5* 
to  be  thinner  over  the  angle-of-attack  range;  the  difference 
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increasing  with  increasing  X/C.  Small  separation  bubbles  can 
be  observed  at  4°  a  located  at  0.1  X/C,  8°  a  located  at  0.03 
X/C,  and  9°  a  located  at  0.02  X/C. 


TABLE  3.2 
SIKORSKY  8SC-A09 
184  PANELS 

BOUNDARY  LAYER  TRANSITION  INPUTS 


r _ 

R.=2E6  (M=0 .2) 

R.=4E6  (M-0.4) 

1  *° 

Calculated 

Stagnation 

Point 

Input 

Stagnation 

Point 

Michel  *# 
Estimate 

Transition 

Point 

Input 

Stagnation 

Point 

Michel's 

Estimate 

Transition 

Point 

0 

94 

94 

0.438 

0.65 

94 

0.027 

0.068 

2 

92 

92 

0.184 

0.63 

92 

0.146 

0.064 

4 

90 

89 

0.121 

0.49 

89 

0.115 

0.060 

6 

86 

86 

0.105 

0.075 

86 

0.079 

0.075 

8 

82 

81 

0.0163 

0.023 

82 

0.010 

0.070 

9 

81 

82 

0.0160 

0.022 

81 

0.011 

0.022 

Figures  3.14  through  3.25  present  the  upper  surface 
boundary  layer  velocity  profiles  as  a  function  of  Mach  number 
and  angle-of -attack.  Increasing  Reynolds  number  appears  to 
thicken  the  boundary  layer  profile  placing  more  fluid  energy 
closer  to  the  airfoil  surface  and  resulting  in  a  decrease  in 
the  separation  bubble  size.  An  example  of  this  can  be  seen  in 
Figures  3.18  and  3.19  at  4°  a.  A  large  separation  bubble 
appears  in  the  2,000,000  Reynolds  number  flow  but  is  greatly 
reduced  in  the  4,000,000  Reynolds  number  flow.  The  effect  can 
also  be  observed  at  8°  a  in  Figures  3.22  and  3.23. 
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Figure  3.2 
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Cc&  5' 
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Figure  3.12 


Sikorsky  SSC-A09 


Figure  3.13 
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Figure  3 . 17 
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Upper  Surface  Panel  # 


Figure  3.19 


Figure  3.20 
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Upper  Surface  Panel  # 


Figure  3.24 


Figure  3.25 


XV.  UNSTEADY/  LINEAR  PANEL  CODE 


A .  THEORY/ BACKGROUND 

The  steady,  linear  panel  code  used  in  chapter  II  is 
adapted  here  to  unsteady  flow  by  building  in  a  time  dependency 
and  modeJ ing  the  vortex  shedding  process .  Two  further 
assumptions  that  are  required  are: 

#  The  viscous  flow  effect  must  be  negligible. 

#  The  flow  must  stay  attached  on  the  airfoil  surface. 
Teng  [Ref.  15]  adapted  such  a  formulation  and  is  used  here. 
This  panel  method  was  originally  developed  by  Hess  and  Smith 
[Ref.  9]  for  steady  flow.  Its  extension  to  unsteady  motion 
was  achieved  by  continuously  shedding  vorticity  into  a 
trailing  wake  using  an  interactive  solution. 

1.  Flow  Model 

Complicating  the  unsteady  flow  solution  are  the  now 
time  dependent  N+l  unknown  singularity  distributions  (sources 
and  vortices) .  These  singularities  are  given  a  time  index. 
As  before,  the  source  strengths  are  allowed  to  vary  from  panel 
to  panel  per  time  step;  and  the  vorticity  is  a  constant  at 
each  time  step.  The  vortex  shedding  process  can  be  defined 
through  the  basic  definition  of  circulation,  Equation  4.1,  and 
the  Helmholtz  theorem  of  vortex  continuity  -  that  potential 
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flow  total  circulation  must  be  preserved  (Anderson  [Ref.  2]). 
The  airfoil  perimeter  is  identified  as  p. 

r*  =  -  j  {  V*  •  dS  }  =  Y*  *  P  (4*1> 

Therefore,  circulation  changes  on  the  airfoil  surface  must  be 
equal  and  opposite  to  the  wake  vorticity.  Thus  the  shed 
vorticity  model  allows  a  mechanism  for  communication  between 
time  steps. 

2.  Boundary  conditions 

The  flow  tangency  and  Kutta  conditions  are  no  longer 
linear.  This  requires  an  iterative  numerical  solution  scheme. 
The  flow  tangency  condition  remains  the  same.  The  Kutta 
condition  must  now  include  the  trailing  edge  panel's  potential 
rate  of  change. 

3 .  Solution  Scheme 

The  disturbance  potential.  Equation  4.2,  is 
complicated  by  adding  in  potential  contributions  from  the  shed 
vorticity  panels  and  the  wake  core  vortices.  The  disturbance 
potential  must  be  calculated  at  every  control  point  at  each 
time  step  taking  great  care  to  only  include  velocity 
contributions  due  to  disturbances.  Complete  modeling, 
numerical  solution  scheme,  and  disturbance  potential  details 
can  be  found  in  Teng  [Ref.  15]. 

®  -  {  +  $ source  +  $  vortex  +  4*  s/jed  vortex  +  §  core  vorticity  } 
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A  complete  program  (UPOT.F)  user's  guide  with  input  and  output 
file  examples  and  the  source  code  are  located  in  Appendix  B. 
A  few  non-dimensional  parameters  must  first  be  clarified.  The 
Reduced  Pitch  Rate  (A)  used  to  classify  ramp  motion  and  the 
Reduced  Frequency  (k)  used  in  sinusoidal  motion  can  be  based 
on  full  or  half -chord.  Program  UPOT.F  uses  full  chord,  but 
the  Lorber  and  Carta  experimental  results  [Ref.  11]  use  half¬ 
chord  as  shown  in  equations  4 . 3  and  4.4. 

*  *  {f§}  (4-3> 

k  =  {  |*  «  =  Osillation  Frequency  (4.4) 

B.  THE  NACA  0012  AIRFOIL 

Calculated  force  and  moment  coefficients  as  a  function  of 
angle-of -attack  during  a  0.005  Reduced  Pitch  Rate  ramp  motion 
are  displayed  in  Figures  4.1  through  4.3.  Steady  state 
results  from  chapter  two  are  also  displayed  for  comparison. 
Very  little  noticeable  difference  is  noted  in  lift  or  moment 
coefficient. 

Results  for  a  sinusoidal  motion  with  a  Reduced  Frequency 
of  0.025  and  a  pitch  magnitude  of  12°  are  shown  in  Figures  4.4 
through  4.6,  again  with  steady  state  results  previously 
obtained.  Results  for  a  sinusoidal  motion  with  a  Reduced 
Frequency  of  0.05  and  a  pitch  magnitude  of  20°  are  shown  in 
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Figures  4.7  through  4.9.  Here,  lift  is  augmented  throughout 
the  down  cycle  and  lost  during  the  up  cycle,  contrary  to  what 
would  be  expected  in  experiment.  Similar  results  are  shown 
for  the  drag  and  the  moment  coefficients. 

C.  THE  SIKORSKY  8SC-A09  AIRFOIL 

To  validate  the  Lorber  and  Carta  experimental  data,  a  ramp 
motion  with  a  Reduced  Pitch  Rate  of  0.005  and  sinusoidal 
motions  with  Reduced  Frequencies  of  0.025  and  0.05  were 
completed.  UPOT.F  unsteady,  PANEL. F  steady,  and  Lorber  and 
Carta  experimental  data  are  presented  in  Figures  4 . 10  through 
4.18. 

1.  Ramp  Motion,  A=0.005  (0°  to  20°) 

The  calculated  steady  state  and  unsteady  lift 
coefficient  varied  little  from  the  experimental  results 
throughout  the  linear  range  (0°  to  14°).  Once  nonlinear, 
viscous  effects  dominated  the  real  flowfield,  calculated 
results  diverged  as  expected.  Steady  and  unsteady  calculated 
drag  results  follow  the  general  direction  of  experimentally 
measured  values  but  differ  widely  in  magnitude  due  to  the 
basic  inviscid  flow  assumptions.  Pitching-moment  coefficient 
agrees  well  with  experimental  results  through  approx imately 
11°  o. 


63 


2 .  Sinusoidal  Motion 

a.  a(t)  a  6  -  Ceos(ttt),  k=0.025,  o0-*  12°-*  0° 

Computed  unsteady ,  inviscid,  incompressible  results 
indicate  a  net  loss  of  lift  on  the  up  cycle  and  augmented  lift 
on  the  down  cycle  when  compared  to  PANEL. F  computed  steady 
state  values.  UPOT.F  overpredicts  lift  on  both  up  and  down 
cycles  when  compared  to  experiment.  Pitching-moment 
coefficient  results  show  a  similar  overall  trend  but  are  also 
displaced  by  a  constant  magnitude  from  experimentally  measured 
results. 

Jb.  «<t)  =  10  -  10cos(ut),  k=0.05,  0°-»  20°-  0° 

Similar  results  were  obtained  when  the  oscillation 
magnitude  and  Reduced  Pitch  rate  were  increased.  Computed 
unsteady,  inviscid,  incompressible  results  indicate  a  net  loss 
of  lift  on  the  up  cycle  and  augmented  lift  on  the  down  cycle 
when  compared  to  PANEL. F  computed  steady  state  values.  No 
reasonable  correlation  could  be  drawn  from  the  drag  results 
due  to  the  code's  inviscid  flow  assumption.  The  general 
pitching-moment  coefficient  trend  is  similar  within  the  linear 
region,  but  varies  wildly  within  the  nonlinear  region. 
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Figure  4.5 


NACA  0012  Sinusoid  @  k=  0.025 


Figure  4 . 6 
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Sikorsky  SSC-A09  Ramp  @A=  0.005 


O  Lorber /Carta  (M-  02) 

- Steady  state  (panelf) 

-  Ramp  (upotf ) 


Figure  4.11 


1  16 

> 

20 

1 

Sikorsky  SSC-A09  Ramp  @A=  0.005 


n  a 


°  Locber/Carla  (M-0.2) 

- Steady  State  (panetf) 

-  Ramp  (upotf) 


Figure  4.12 


Figure  4 . 17 
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V.  NAVIBR-8T0KES  CODE 


A.  THEORY/ BACKGROUND 

To  fully  understand  and  visualize  the  viscous  and 
compressibility  effects  on  the  dynamic  stall  phenomenon,  a 
numerical  solution  of  the  unsteady  Navier-Stokes  equations  is 
required.  A  thorough  understanding  of  the  flow  physics  at  the 
leading  edge  region  is  most  important  due  to  the  presence  of 
significant  compressibility  effects  and  boundary  layer 
transition.  Compressibility  effects  appear  at  0.2  to  0.3  Mach 
numbers  on  the  NACA  0012;  and  shocks  can  form  on  the  airfoil 
upper  surface  at  0.45  Mach  number.  Interaction  of  the  shock 
and  the  local  boundary  layer  then  directly  affects  the  flow 
separation  process  (VanDyken  and  Chandrasekhara  [Ref.  17]). 

Dynamic  stall  is  the  fluid  aerodynamic  response  to  an 
airfoil  executing  a  time-dependent  pitch.  Rapid  pitch  up 
generates  a  vortex  near  the  leading  edge  that  increases  flow 
circulation  and,  therefore,  lift.  At  angels-of-attack  beyond 
the  static  stall  angle-of-attack,  massive  unsteady  separation 
and  large-scale  vortical  structures  characterize  the  unsteady 
flowfielu  (Srinivasan,  Ekaterinaris,  and  McCroskey  [Ref.  14]). 
Vortex  convection  aft  along  the  airfoil  creates  large  force 
and  moment  changes.  Successive  weaker  vortices  may  be 
generated  with  continued  pitching  or  oscillatory  motion.  The 
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flow  completely  reattaches  only  after  the  angle  of  incidence 
is  significantly  reduced.  Experimental  results  of  unsteady 
flows  over  pitching  airfoils  by  Lorber  and  Carta  [Ref.  11] 
produced  supersonic  speeds  and  generated  shocks  near  the 
leading  edge  at  M=0.3  and  higher  free  stream  Mach  numbers. 
The  dynamic  stall  flowfield  dependence  parameters  are: 
airfoil  shape,  Mach  number,  reduced  frequency  or  reduced  pitch 
rate,  oscillation  amplitude  motion  type  (ramp  or  sinusoid) , 
Reynolds  number,  and  wind  tunnel  wall  effects  (Srinivasan, 
Ekaterinaris,  and  McCroskey  [Ref.  14]).  Wind  tunnel  wall 
effects  were  not  included  in  this  investigation. 

B.  NUMERICAL  SCHEME 

The  numerical  scheme  and  implementation  used  in  this  paper 
were  taken  from  one  developed  by  Tuncer,  Ekaterinaris,  and 
Platzer  [Ref.  16]  and  Cricelli,  Ekaterinaris,  and  Platzer 
[Ref.  6].  The  strong,  conservation  law  form  of  the  two- 
dimensional,  thin-layer  Navier-Stokes  equations  is  used.  For 
a  curvilinear  coordinate  system,  (£,i ),  along  strearowise  and 
normal  direction  respectively,  the  governing  equations  take 
the  following  form: 

at$  +  dj  +  a{S  =  j?;1  a{s  (5.1) 

Here  Q,  Equation  5.2,  is  the  vector  of  the  conservative 
variables.  The  inviscid  flux  vectors,  P  and  Q,  are  shown  in 
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Equation  5.3.  U  and  W  are  contravariant  velocity  components 
given  by  Equation  5.4.  For  the  thin-layer  approximation  of 
the  viscous  flux  term  8,  in  the  {  direction  normal  to  the 
airfoil  surface  is  shown  in  Equation  5.5. 


b  - 


(5.2) 


* 


a 


pu 

puU  + 
pwU  +  £,p 
(e  +  p)  U  -  IfP 


1 

J 


pw 

puw  +  C  xP 
pwW  +  {,p 

(e  +  p)  W  -  CtP 


l. 

J 


(5.3) 


u  =  ulx  + 

v  +  ct 


(5.4) 
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1 

J 
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\MiwC  *  (-3^* 

Vmim3  +  ^m2  *  (CxU  +  C,V) 


-  w  ♦  c,2 

*2 

-  +  C. 

WC 

m3 

u2+w2  ^ 
2 

K  P/1 

, -1  /3a*\ 

r  l“5T) 


(5.5) 


In  Equations  5.1  through  5.5,  all  geometrical  dimensions  are 
normalized  by  the  root-chord  length;  density  is  normalized  by 
the  free-stream  density,  p„;  u  and  w  are  the  Cartesian 
velocity  components  of  the  physical  domain  normalized  by  the 
free-stream  speed  of  sound,  a.;  e  is  the  total  energy  per  unit 
volume  normalized  by  p„a2.;  and  Pr  is  the  Prandtl  number.  The 
equation  of  state  for  an  ideal  gas  relates  pressure  to  density 
and  total  energy  and  is  presented  in  Equation  5.6.  The  flow 
field  is  assumed  to  be  fully  turbulent  (the  laminar  and 
transitional  boundary  layers  are  neglected)  and  the  Baldwin- 
Lomax  turbulence  model,  Section  III.A.l,  is  used  to  evaluate 
eddy  viscosity. 


p  *  (Y'l)  fe  -  P10^]  (5.6) 
1.  Boundary  conditions 

The  computational  domain  includes  the  airfoil  and  the 
entire  viscous  flow  field.  The  no-slip  boundary  condition  is 
applied  on  the  airfoil  surface.  The  density  and  pressure 
values  are  obtained  by  extrapolation.  If  the  flow  is 
unsteady,  the  surface  fluid  velocity  is  set  to  the  dictated 
airfoil  velocity  to  satisfy  the  no-slip  boundary  condition 
(Tuncer  et  al,  [Ref.  16]). 

Flow  variables  are  evaluated  using  the  zero-order 
Riemann  invariant  extrapolation  at  the  downstream  outflow 
boundary.  Only  pressure,  the  incoming  characteristic,  is 
specified  at  a  subsonic  outflow  boundary  and  three  outgoing 
characteristics  are  extrapolated  from  the  interior.  A  first 
order  extrapolation  is  used  for  density  and  normal  velocity. 
The  zero-order  outgoing  Riemann  invariant  determines  the  axial 
flow  velocity.  The  outflow  boundary  conditions  are  shown  in 
Equation  5.7. 

Pi  *  P2 


* 1  ^  W2 
Pi  =  P- 
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2.  Numerical  Implementation 


The  numerical  integration  is  obtained  using  a  high- 
order  accurate  upwind  biased,  factorized,  iterative,  implicit 
scheme  developed  by  Tuncer  et  al  [Ref.  16].  The  inviscid 
fluxes  are  evaluated  using  Osher's  third-order-accurate  upwind 
scheme.  Time  accuracy  of  the  implicit  numerical  solution  is 
improved  by  Newton  subiteration  within  each  time  step. 
Complete  code  details  are  located  in  Tuncer  et  al  [Ref.  16] 
and  Cricelli  et  al  [Ref.  5]. 

a.  UPS  Cray  Y-MP 

All  NS.F  program  runs  were  accomplished  using  the 
Naval  Postgraduate  School  Cray  Y-MP  EL  computer.  It  is  a  133 
MFLOP  processor  with  2GB  of  main  memory  and  a  50  GB  local  disk 
running  Unicos  7. 

b.  PLOT3D 

The  solutions  generated  by  any  CFD  program  consist 
of  millions  of  numbers  representing  grid  points  and  physical 
variable  magnitudes.  Visual  techniques  are  relied  upon  to 
translate  this  vast  numerical  data  base  into  comprehensible 
graphic  representations.  PLOT 3D  is  a  computer  graphics 
program  that  allows  interactive  fluid  dynamics  examination. 
Physical  phenomena  are  represented  by  color  gradations  and 
through  individual  particle  traces.  Program  PLCON.F,  Appendix 
C,  is  used  to  write  the  visualization  output  files  that  are 
displayed  here. 
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3.  Computational  Grid 

A  213  by  61  point  body-fitted,  C-type  computational 
grid  was  used  in  all  computations.  The  grid  had  213  points 
around  the  airfoil  (the  trailing  edge  lower  point  at  31  and 
upper  point  at  183)  and  61  points  in  the  normal  direction,  all 
generated  by  a  hyperbolic  grid  generator.  The  grid  was 
clustered  at  the  body  surface  in  the  normal  direction,  at  the 
leading  edge  and  at  the  trailing  edge  regions.  The  C-type 
grid  provided  a  sufficiently  high  enough  grid  density  at  the 
airfoil  surface  boundary  to  resolve  wall  viscous  and  vortical 
flow  field  effects,  as  well  as  capturing  the  leading  edge 
shock  created  during  unsteady  maneuvers  and  created  at  high 
angle-of -attack  in  steady  flows  at  greater  than  0.3  Mach. 
Cell  orthogonality  was  emphasized  throughout  the  grid  and 
facilitated  solution  convergence. 

4.  Program  N8.F  User's  Guide 

A  complete  NS.F  user's  guide  is  located  in  Appendix  C. 
Included  are  the  NS. IN  input  name  list;  Indigo  and  Cray  Y-MP 
Batch  and  graphical  interface  codes;  and  the  NS.F  source  code. 

C.  SIKORSKY  SSC-A09  RESULTS 
1.  Steady  Strte  Motion 

a.  Force  and  Pitching-Moment  Coefficients 

Force  and  pitching-moment  coefficient  steady  state 
results  as  a  function  of  angle-of-attack  for  the  Navier- 
Stokes,  Panel  code,  and  Lorber  and  Carta  data  for  0.2  and  0.4 
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Mach  number  flows  are  displayed  in  Figures  5.1  through  5.5. 
The  Navier-Stokes  code  more  closely  approximates  the  lift 
coefficient  experimental  data  through  14°  angle-of-attack  than 
the  Panel  code  with  accuracy  decreasing  with  increasing  Mach 
number.  Some  improvement  is  observed  in  moment  coefficient 
calculations  over  the  Panel  code  through  13°  angle-of-attack. 
The  Navier-Stokes  code  did  calculate  the  experimentally 
measured  rapid  change  in  pitching-moment  coefficient  beyond 
15°  angle-of-attack  with  accuracy  improving  with  increasing 
Mach  number.  The  Navier-Stokes  code  closely  followed 
experimentally  measured  drag  results  through  6°  angle-of- 
attack,  and  accuracy  improved  with  increasing  Mach  number 
beyond  this  point.  The  qualitative  change  in  drag  with 
increasing  Mach  number  was  properly  calculated  by  the  Navier- 
Stokes  code. 

b.  Skin  Friction  Coefficient 

Skin  friction  coefficient  as  a  function  of  airfoil 
position,  angle-of-attack,  and  Mach  number  are  displayed  in 
Figures  5.6  and  5.7.  A  'loads'  subroutine  error  in  the  NS.F 
code  required  modification  of  the  displayed  coefficients  by  a 
constant  factor  of  200.  A  new  code  version  incorporating  the 
Chen-Tysen  flow  transition  model  in  a  new  'bltrans'  subroutine 
appears  to  have  corrected  this  magnitude  error.  A  separation 
bubble  is  observed  at  0.2  Mach  number  located  at  approximately 
ten  percent  chord  at  both  9°  and  11°  angle-of-attack.  The 
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trailing  edge  separation  region  grows  and  moves  forward  with 
increasing  angle-of -attack.  Separation  bubbles  also  appear  at 
0.4  Mach  number  at  9°,  11°,  and  13°  angle-of -attack.  The 
trailing  edge  separation  region  behaves  the  same,  but  is 
quantitatively  smaller  in  size  with  increasing  Mach  number. 

c.  Pressure  Coefficient 

Pressure  coefficient  as  a  function  of  airfoil 
position,  angle-of -attack,  and  Mach  number  is  displayed  in 
Figures  5.8  through  5.19.  The  Navier-Stokes  code  closely 
approximates  the  experimental  data  through  13°  angle-of-attack 
with  a  small  discrepancy  at  the  trailing  edge  at  low  Mach 
numbers.  Navier-Stokes  correlation  appears  to  be  better  with 
decreasing  Mach  number.  The  Baldwin-Lomax  turbulence  model 
was  not  able  to  accurately  predict  the  shock  induced  boundary 
layer  separation  and  reduced  suction  peak  as  can  be  observed 
in  Figures  5.15,  and  5.17  through  5.19. 

d.  Plot3D  Visualization 

Steady  State  density,  pressure,  Mach  number,  and 
vorticity  flowfield  variations  as  a  function  of  Mach  number 
and  angle-of-attack  are  shown  in  Figures  5.20  through  5.31. 
The  solutions  presented  for  0°  angle-of-attack  are  the  ones 
later  used  to  initiate  unsteady  motion.  At  M=0.2,  the  flow 
remains  attached  until  9°  a,  at  which  point  the  trailing  edge 
lightly  separates  and  the  separation  region  begins  to  move 
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forward  with  increasing  angle-of -attack.  At  15°  a,  the 
separation  region  extends  forward  to  approximately  0.1  x/c. 

At  M=0 . 4 ,  the  flow  again  remains  attached  until  9° 
a,  at  which  point  the  trailing  edge  separates  a  little  more 
and  the  separation  region  begins  to  move  forward  with 
increasing  angle-of -attack.  Vorticity  appears  to  increase 
with  increasing  Mach  number.  Shock  induced  boundary  layer 
separation  rppears  first  at  11°  a  and  increases  in  magnitude 
through  15°  a  where  massive  flowfield  separation  is  observed, 
Figure  5.31. 

2 .  Unsteady  Motion 

The  unsteady  calculations  were  started  from  the  steady 
state  solution  at  the  lowest  angle-of -attack.  For  sinusoidal 
motion,  the  instantaneous  angle-of -attack  is  shown  in  Equation 
5.8.  Definitions  for  Reduced  Pitch  Rate,  A,  and  Reduced 
Frequency,  k,  are  given  in  Equations  4.3  and  4.4, 
respectfully. 


«(t)  =  -  «min)  x  tl  „  cos((l)t)]  (5.8) 

a.  Ramp  Motion ,  M=0 . 2,  a=GP-  30°,  and  A=0.005 

Density  residual  history  as  a  function  of  angle-of- 
attack  is  displayed  in  Figure  5.32  and  indicates  stable 
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results  through  15°  angle-of -attack.  Force  and  pitching- 
moment  coefficient  results ,  unsteady  panel,  and  Lorber  and 
Carta  experimental  results  are  displayed  in  Figures  5.33 
through  5.35.  The  Navier-Stokes  code  more  closely  calculates 
lift  and  pitching-moment  coefficients  through  17°  angle-of- 
attack  than  the  unsteady  panel  code.  The  Navier-Stokes  code 
closely  followed  experimentally  measured  drag  through  10° 
angle-of -attack,  but  was  late  in  calculating  the 
experimentally  measured  sudden  rise  in  drag  at  16°  angle-of- 
attack. 

(1)  Flowfield  Visualization.  Flowfield  density, 
pressure,  Mach  number,  and  vorticity  are  displayed  in  Figures 
5.36  through  5.42.  A  smaller  leading  edge  stagnation  region 
and  a  little  larger  trailing  edge  separation  region  is  evident 
when  compared  to  steady  state  results.  Ramp  maximum  leading 
edge  Mach  number  is  also  slightly  smaller  at  any  given  angle- 
of-attack.  Massive  flowfield  separation  is  observed  at  20c 
angle-of -attack.  Figure  5.42. 

b.  Ramp  Motion,  M=0 . 3  6  0.4,  2CP ,  and  A=0.005 

Force  and  pitching-moment  coefficient  results  as  a 
function  of  Mach  number  and  angle-of-attack  and  Lorber  and 
Carta  experimental  results  are  displayed  in  Figures  5.43 
through  5.48.  The  Navier-Stokes  code  somewhat  overestimates 
force  and  pitching-moment  coefficients  for  all  Mach  numbers 
throughout  the  attached  flow  region,  but  did  capture  the 
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experimentally  measured  changes  at  stall  with  accuracy 
improving  with  increasing  Mach  number.  Drag  coefficient 
followed  experiment  closely  through  the  linear  region  with 
accuracy  improving  with  increasing  Mach  number. 

(1)  Flowfield  Visualization.  Flowfield  density, 
pressure,  Mach  number,  and  vorticity  for  the  M=0.4  ramp  are 
displayed  in  Figures  5.49  through  5.55.  Mach  number  over  the 
leading  edge  is  higher  than  steady  state  values.  Shock 
induced  boundary  layer  separation  is  observed  starting  at  11° 
angle-of-attack  and  is  more  massive  and  moves  more  forward 
than  observed  in  steady  state  results.  At  15°  angle-of- 
attack,  the  upper  surface  is  mostly  separated  and  convecting 
vortices  are  observed  departing  the  trailing  edge. 

The  leading  edge  flowfield  region  of  the  M=0.4 
ramp  motion  is  magnified  in  Figures  5.56  through  5.63.  These 
figures  graphically  display  the  complex  leading  edge  flow 
physics  of  shock  induced  boundary  layer  separation.  A 
secondary  shock  on  the  leading  edge  can  also  be  identified  in 
Figures  5.56,  5.57,  and  5.60.  The  time  dependent  vortex 
shedding  process  can  be  observed  in  Figures  5.62  and  5.63. 
c.  Sinusoid,  M =0.2,  and  k=0.025  [6  -  6cos(ot)] 

Density  residual  history  as  a  function  of  angle-of- 
attack  is  displayed  in  Figure  5.64  and  indicates  stable 
results  throughout  the  angle-of-attack  range.  Force  and 
pitching-moment  coefficient  results  are  displayed  with 
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unsteady  panel  and  Lorber  and  Carta  results  in  Figures  5.65 
through  5. SI.  Navier-Stokes  lift  results  more  closely  follow 
the  experimental  results;  but  the  character  of  the  results, 
decreased  lift  on  the  up  stroke  and  augmented  lift  on  the  down 
stroke,  are  opposite  to  the  expected  results.  Drag 
computations  improved  over  the  unsteady  panel  code.  The 
general  trend  is  to  follow  experiment,  but  there  is  an  error 
associated  with  angle-of-attack.  Pitching-moment  follows  the 
experiment  well,  but  seems  to  have  a  constant  error.  The 
experimental  pitching-moment  results  are  all  positive  which 
would  not  be  expected  with  this  cambered  airfoil. 

(1)  Flowfield  Visualization.  Flowfield  density, 
pressure,  Mach  number,  and  vorticity  are  displayed  in  Figures 
5.68  through  5.74  for  both  the  up  and  down  stroke.  Trailing 
edge  separation  is  first  observed  at  9°  anqie-of -attack.  The 
flow  generally  remains  well  behaved  throughout  the  cycle  and 
no  shocks  are  indicated.  Higher  local  Mach  numbers  are 
observed  on  the  down  stroke  when  compared  to  the  up  stroke  for 
the  same  angle-of-attack. 

d.  Sinusoid,  M=0.2,  and  k=0.05  [10  -  lOcos  (ot) J 

Density  residual  history  as  a  function  of  angle-of- 
attack  is  displayed  in  Figure  5.75  and  indicates  stable 
results  below  13.5°  angle-of-attack.  Force  and  pitching- 
moment  coefficient  results  are  displayed  in  Figures  5.76 
through  5.78.  The  Navier-Stokes  code  followed  experimentally 
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measured  lift  well  through  19°  angle-of-attack.  A  large 
difference  in  lift  was  calculated  during  the  down  cycle 
between  20°  and  9°  angle-of-attack.  The  Navier-Stokes  code 
followed  experimentally  measured  drag  well  through  12°  angle- 
of-attack.  There  appears  to  be  good  moment  coefficient 
agreement  through  12°  angle-of-attack. 

(1)  Flowfleld  Visualization.  Flowfield  density, 
pressure,  Mach  number,  and  vorticity  are  displayed  in  Figures 
5.79  through  5.91  for  both  the  up  and  down  stroke.  For 
angles-of -attack  below  13°,  local  leading  edge  Mach  number  is 
higher  and  the  trailing  edge  separation  region  is  larger  on 
the  down  stroke  when  compared  to  the  up  stroke  at  the  same 
angle-of-attack.  Beginning  at  15°  angle-of-attack,  the  local 
leading  edge  Mach  number  is  higher  on  the  up  stroke.  Massive 
trailing  edge  separation  is  observed  on  the  down  stroke  at  17° 
angle-of-attack  and  disappears  at  15°  angle-of-attack.  The 
flowfield  is  massively  separated  with  complex  vortical 
structures  at  the  maximum  angle-of-attack,  20°.  The  leading 
edge  flowfield  region  is  magnified  in  Figures  5.92  through 
5.94.  These  figures  graphically  display  the  complex  leading 
edge  flow  physics  of  shock  induced  boundary  layer  separation. 
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Figure  5.3 

Steady  State  CM,  (M=0.2) 


Sikorsky  SSC-A09  (M=0.4) 


Figure  5.4 

Steady  State  CM,  (M=0.4) 
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Sikorsky  SSC-A09 


Figure  5.5 
Steady  State  Cd. 
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Figure  5.10 

Steady  State  CP  (M=0.2) 


Sikorsky  SSC-A09  (M=  0.4) 


Sikorsky  SSC-A09  (M=  0.2) 
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Figure  5.12 

Steady  State  CP  (M=o.2) 


Sikorsky  SSC- A09  (M=  0.4) 


Figure  5.13 

Steady  State  CP  (M=0.4) 
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Steady  State  CP  (M=0.4) 
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Figure  5.16 

Steady  State  CP  (M=0.2) 


Figure  5.17 

Steady  State  CF  (M=0.4) 
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Figure  5 . 18 

Steady  State  CP  (M=0.2) 


Sikorsky  SSC-A09  (M=  0.4) 


Figure  5 . 19 

Steady  State  CP  (M=0.4) 
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DENSITY  PRESSURE 


Figure  5.21 
Sikorsky  SSC-A09 
Steady  State  (M=0.2) 
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Figure  5.22 
Sikorsky  SSC-A09 
Steady  State  (M=0.2) 
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Figure  5.23 
Sikorsky  SSC-A09 
Steady  State  (M=0.2) 
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Figure  5.24 
Sikorsky  SSC-A09 
Steady  State  (M=0.2) 
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Figure  5.25 
Sikorsky  SSC-A09 
Steady  State  (M»0.2) 
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DENSITY  PRESSURE 


Figure  5.26 
Sikorsky  SSC-A09 
Steady  State  (M-0 . 4 ) 
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Figure  5.27 
Sikorsky  SSC-A09 
Steady  State  (M=0.4) 

105 


Figure  5.29 
Sikorsky  SSC-A09 
Steady  State  (M=0.4) 


Figure  5.30 
Sikorsky  SSC-A09 
Steady  State  (M=0.4) 
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Figure  5.31 
Sikorsky  SSC-A09 
Steady  State  (M-0.4) 
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Ramp  Residual  History  (M=  0.2) 


Figure  5.32 

Ramp  Residual  History  (M-0.2) 


Sikorsky  SSC-A09  (M=0.2) 


Figure  5.33 
Ramp  CLt  (M=0 .2) 
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Figure  5.34 
Ramp  Cd.  (M=0 . 2 ) 


Figure  5.35 
Ramp  Cm,  (M-0.2) 
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DENSITY  PRESSURE 


Figure  5.37 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0. 2) 
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DENSITY  PRESSURE 


Figure  5.39 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0.2) 
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Figure  5.41 
Sikorsky  SSC-A09 
Ramp  (A-0.005,  H=0.2) 
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DENSITY  PRESSURE 


Figure  5.42 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0.2) 
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Sikorsky  SSC-A09  (M=0.4) 


Figure  5.43 


Ramp  CL.  (M=0.4) 


Figure  5.44 
Ramp  Cdc  (M=0.4) 
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Figure  5.45 
Ramp  CM,  (M=0 . 4 ) 


Figure  5.46 

Ramp  CL,  (M=0 . 2 , 0 . 3 , 0 . 4 ) 
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Figure  5.49 
Sikorsky  SSC-A09 
Ramp  (A=0 . 005,  M=0.4) 
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Figure  5.50 
Sikorsky  SSC-A09 
Ramp  (A«0.005,  M=0 . 4 ) 
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Figure  5.51 
Sikorsky  SSC-A09 
Ramp  (A=0 . 005 ,  M=0 . 4 ) 
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Ramp  (A=0.005,  M=0. 4) 
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DENSITY  PRESSURE 


Figure  5.54 
Sikorsky  SSC-A09 
Ramp  (A=0. 005,  M=0.4) 


Figure  5.55 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0 . 4 ) 
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Figure  5.56 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0.4) 
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Figure  5.57 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0.4) 
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Figure  5.59 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0.4) 
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Figure  5.60 
Sikorsky  SSC-A09 
Ramp  (A=0. 005,  M=0.4) 
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Figure  5.61 
Sikorsky  SSC-A09 
Ramp  (A=0 . 005 ,  M=0. 4) 
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Figure  5.62 
Sikorsky  SSC-A09 
Ramp  (A=0.005,  M=0 . 4 ) 
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Figure  5.64 

Sinusoid  Residuals  (k=0.025,  M=0.2) 


Sinusoid  CL,  (k=0.025,  M=0.2) 
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Figure  5.66 

Sinusoid  Cdc  (k=0.025,  M=0.2) 


Figure  5.67 

Sinusoid  CHB  (k=0.025,  M=0 . 2 ) 
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Figure  5.68 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.025,  M=0.2) 
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Figure  5.69 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.025,  M=0.2) 
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Figure  5.70 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.025,  M=0.2) 
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Figure  5.72 
Sikorsky  SSC-A09 

Sinusoid  (DOWN)  (k=0.025,  M=0.2) 
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Figure  5.73 
Sikorsky  SSC-A09 

Sinusoid  (DOWN)  (k=0.025,  M=0.2) 
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Figure  5.74 
Sikorsky  SSC-A09 
Sinusoid  (DOWN)  (k=0.025,  M=0.2) 
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Figure  5.79 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.05,  M=0.2) 
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Figure  5.80 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.05,  M=0.2) 
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Figure  5.83 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.05,  M=0.2) 
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Figure  5.84 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.05,  M=0.2) 
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Figure  5.85 
Sikorsky  SSC-A09 
Sinusoid  (UP)  (k=0.05,  M=0.2) 
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Figure  5.86 
Sikorsky  SSC-A09 
Sinusoid  (DOWN)  (k=0.05,  M=0.2) 
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Figure  5.88 
Sikorsky  SSC-A09 
Sinusoid  (DOWN)  (k=0.05,  M=0.2) 


157 


DENSITY  PRESSURE 


o> 

o 


Figure  5.89 
Sikorsky  SSC-A09 
Sinusoid  (DOWN)  (k=0.05,  M=0.2) 
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Figure  5.91 
Sikorsky  SSC-A09 
Sinusoid  (DOWN)  (k=0.05,  M=0.2) 
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Figure  5.92 
Sikorsky  SSC-A09 
Sinusoid  (k=0.05,  M=0.2) 
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Figure  5.93 
Sikorsky  SSC-A09 
Sinusoid  (k=0.05,  M=0.2) 
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Figure  5.94 
Sikorsky  SSC-A09 
Sinusoid  (k=0.05,  M=0.2) 


163 


U'UI 


VI.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  steady  and  unsteady  two-dimensional  flowfield  analysis 
was  conducted  for  a  Sikorsky  SSC-A09  airfoil  in  compressible, 
high  Reynolds  number  flows.  Computational  methods  included  a 
steady  panel  method  with  compressibility  corrections;  a 
laminar  and  turbulent  boundary  layer  method;  an  unsteady  panel 
method;  and  a  numerical  solution  method  of  the  thin  layer, 
compressible,  Navier-Stokes  equations.  The  Baldwin-Lomax, 
two-layer,  zero-equation  turbulence  model  was  used.  In  steady 
flow  with  little  or  no  separation,  computed  lift,  drag, 
pitching  moment,  and  skin  friction  coefficients,  as  well  as 
displacement  thickness  and  boundary  layer  velocity  profiles  at 
several  angles-of -attack  were  generally  found  to  be  in  good 
agreement  with  experimental  data.  The  much  simpler  laminar 
and  turbulent  boundary  layer  method  produced  very  good 
information,  more  than  adequate  for  the  preliminary  design 
process,  at  a  greatly  reduced  computational  cost. 

When  any  airfoil  enters  deep  stall,  the  flowfield  is  seen 
to  be  dominated  by  massive  flow  separation  and  highly  non¬ 
linear  behavior  characterized  by  the  shedding  of  vortex-like 
structures.  The  Baldwin-Lomax,  simple  eddy  viscosity 
turbulence  model  used  here  was  found  to  be  inadequate.  It 
predicted  steady  flows  accurately  only  when  there  was  little 
or  no  flow  separation.  When  the  flow  separated,  it  over 
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predicted  the  leading  edge  suction  peak,  over  predicted 
experimentally  shown  separation,  and  consistently  predicted 
higher  lift  and  lower  pitching-moment. 

One  major  inaccuracy  built  into  the  assumptions  was  the 
transitional  nature  of  the  boundary  layer  being  neglected  and 
instead  approximated  by  a  fully  turbulent  flowfield.  Here, 
the  flowfield  was  shown  to  be  dominated  by  leading  edge 
separation,  often  induced  by  a  shock.  The  small  supersonic 
region  and  shock  that  form  near  the  leading  edge  significantly 
reduced  the  peak  suction  pressure  and  airloads;  thus  negating 
the  benefits  from  dynamic  stall  by  reducing  the  stall  vortex 
strength.  The  unsteady  aerodynamic  response  near  stall  was 
shown  to  be  strongly  dependent  on  the  leading  edge  stall 
vortex  characteristics.  Sinusoidal  motions  with  higher 
reduced  frequencies  were  shown  to  be  qualitatively  similar  to 
ramp  motion.  Srinivasan,  Ekaterinaris,  and  McCroskey  [Ref. 
14]  concluded  that  no  currently  used  turbulence  model 
predicted  all  airloads  consistently  and  in  agreement  with 
experiment  for  all  flow  conditions.  They  did  conclude  that 
the  best  improvement  over  the  Baldwin-Lomax  model  was  the 
Renormalization  Group  Theory  of  turbulence  (RNG)  model  which 
also  offered  no  additional  computational  costs.  The  RNG  model 
is  also  an  algebraic  eddy  viscosity,  equilibrium  model  where 
the  eddy  viscosity  is  assumed  to  instantaneously  adjust  to  the 
local  flow  without  any  history  effects;  and  the  specified 
integral  length-scale  is  assumed  proportional  to  the  boundary 
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layer  thickness.  Srinivasan  et  al  [Ref.  14]  also  concluded 
from  a  trade  study  that  a  denser  C-type  grid  of  360  by  71 
provided  the  best  solution  accuracy. 
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APPENDIX  A 


BASIC  UNIX  COMMANDS 

mb  <topic> . obtain  help  info  on  any  'topic' 

yppasswd  .  change  your  password 

akdir  <name> . make  directory 

od  <na *e>  .  change  directory  to  'name' 

Is  .  list  directory  contents 

Is  -1  .  .  w/permissions  map  and  fn  size  (long  option) 

cp  <fnl>  <fn2>  .  copies  'fnl'  to  'fn2'  both  in  current 

directory 

cp  . ./<fni>  .  copy  'fnl'  from  above  dir. Period 

specifies  copy  to  same  file  name 
mv  <fnl>  <fn2>  .  move/rename  'fnl'  to  'fn2'  &  del  fnl 

rm  <fn> . remove  'fn' 

rm  -r  <dir>  .  .  removes  all  subfiles  without  prompting! 

no  way  to  recover 

pwd  . print  working  dir 

more  <fn> . displays  'fnl*  one  page  at  a  time 

head  +xx  <fn> . displays  xx  lines  at  top  of  fn 

tail  -xx  <fn>  ....  displays  xx  lines  at  end  of  fn 

df . indicates  disk  free  space 

ehmod  +/-  rwx  <fn> . change  'fn'  protection 

ps  -ef  .  . . show  all  sys  processes  (pid) 

ps  -ef  |grep  <name>  .  .  .  shows  'name'  current  processes 
f 77  -o  <exe>  <src.f>  .  .  .  compile  fortran  source  code 

'src.f'  and  use  executable  name 
' exe ' .  -02  or  -03  options  are 

for  vectorization 

.  kills  a  process 

.  suspends  a  process 

shows  all  printing  processes 


Ctrl  c  . 
Ctrl  z 
lpstat  -t 
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cancel  hp2pjp»  -  <pld>  .  kills  a  print  job 

pa2ps  <fn> . converts  a  'fn*  to  postscript  and 

prints  two  pages/sheet  (NO  GRAPHICS) 

lp  -dtap2p__ps  <fn> . prints  a  graphics  file 

diff  <fnl>  <fn2>  .  .  .  displays  the  difference  between 

files  ' fnl'  and  •fn2' 

«ip  <fn> . windows  type  editor 

* . Wild  card 

B.  PROGRAM  AIRFOIL. F 

This  program  generates  appropriately  distributed  airfoil 
surface  coordinate  points,  N+l  points,  for  any  NACA  4-  or  5- 
Digit  Airfoil  and  places  them  into  'points.dat'  using  the 
nodal  spacing  function: 


.5  x  ‘ 

f 

1  1  -  COS 

"i] 

71X  — 

[ 

Nj 

Four  Digit  NACA  Series  (xxxx) 

First  digit:  Maximum  camber  in  hundredths  of  chord 

Second  digit:  Location  of  maximum  camber  in  tenths 

of  chord 

Third  &  4th:  Maximum  thickness  in  hundredths  of 

chord 

Five  Digit  NACA  Series  (xxxxx) 

First  digit:  Multiplied  by  3/2  is  Cj  in  tenths 

Second  &  3rd:  Divided  by  2  is  location  of  maximum 

camber  in  hundredths  of  chord 

4th  &  5th:  Maximum  thickness  in  hundredths  of 

chord 
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3 .  Program  Commands 


airfoil 

"Input  Desired  Number  of  Panels  on  the  Upper,  Lower 
Surface."  (max  100,100) 

50,50 

"Input  NACA  4-  or  5-  Digit  Airfoil  Type." 

XXXX  or  XXXXX 


Note:  Surface  Coordinates  are  created  and 

stored  into  ' points.dat'  where 
{/panels  =  /points  -  1>. 

If  desired,  create  or  copy  your  own 
surface  coordinates  to  'points.dat' 

C.  PROGRAM  PANEL. F 

This  program  reads  in  'Points.dat',  calculates  Velocity 
and  Pressure  distributions,  and  outputs  BL2D.F  required  input 
data  to  'bl2d.dat'.  It  generates  the  files:  'vel.dat', 
'cp.dat',  'bl2d.dat',  and  'cldm.dat'.  It  then  calculates  and 
displays  force  coefficient  outputs  cx,  cd,  and  cm. 

1 .  Program  Commands 

panel 


"Input  the  /  Panels"  (one  less  than  in  'Points.dat') 

(sum  of  two  'airfoil. f'  panel  entries) 


100 
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"Input  Re  (xE6) " ( 1  -  1,000,000) 

1 

"Enter  Transition  Location" 

0  -  Unknown 

1  -*  Known 

{If  ' 1'  chosen) 

"Input  X/C  Transition  Location  Upper  Surface" 
(Note:  The  most  CRITICAL  input  !) 

0.XX 

"Input  X/C  Transition  Location  Lower  Surface" 

0.XX 

"Input  Angle-of -Attack  in  Degrees" 

X  or  XX.X 

"Input  Mach  Number" 

0  -  Incompressible,  or 

.X  -  Compressible 

D.  PROGRAM  BL2D.F 

This  program  reads  in  'bl2d.dat'  and  checks  for  proper 
stagnation  point  location.  It  then  generates  the  files 
'bl2d.out',  'cf.dat',  'dls.dat',  'prol.dat',  and  'pro2.dat'. 
l.  Program  Commands 
bl2d 

"Reading  in  the  data" 
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"I  stagnation  is  *  xxN 
"Input  new  I  stagnation  =" 
xx 

"Boundary  layer  computation  in  progress" 

"Boundary  layer  computation  in  progress" 

"Michels  Transition  estimates" 

"Estimate  for  upper  transition  =  .xx" 

"Estimate  for  lower  transition  =  .xx" 

2 .  Program  optimisation 

The  program  is  repeatedly  run  until  convergence  is 
obt a ined .  Procedures : 

#  Run  bl2d 

#  Run  gnuplot 

#  Load  'dis'  and  check  CF  for  convergence 

#  If  diverged  solution,  change  the  upper  transition  point 
(forward)  or  alter  the  stagnation  point  (±1)  and  run  bl2d 
again. 

f  Repeat  the  above  until  convergence  is  reached. 

#  Move  the  transition  point  progressively  aft.  Find  the 
point  where  BL2D  will  just  converge.  This  is  the 
Transition  Point. 


E.  VISUALIZATION  ROUTINES 

Data  output  is  viewed  using  Gnuplot  batch  files.  Gnuplot 
is  a  plotting  routine  available  on  the  Indigos.  Procedures  to 
view  or  print  your  results: 
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g 


Activates  gnuplot  plotting  routine 


1  'press'  View  Pressure  Distribution  (1  *  load) 

1  *vel'  View  Velocity  distribution 

1  'cldm'  View  Cu,  Cd,,  or  CBi 

1  'dis'  View  CF  and  Displacement  Thickness 

1  'profile'  View  Boundary  Layer  Velocity  Profiles 

I  'pf  Prints  any  graph  displayed  on  your  screen 

to  the  hp2p_ps  printer 
1 .  Gnuplot  Commands 


set  autoscale . autoscale  all  axis 

set  title  '  ' . graph  title 

set  ylabel  '  ' . y  title 

set  xlabel  '  ' . x  title 

set  xrange  [  :  ] 

set  y range  [  :  ] 

set  grid  . turn  on  grid 

set  nogrid  . turn  off  grid 

set  key  x,y  . moves  legend  to  x,y 

set  nokey . no  legend 

replot  .  redisplays  plot  with  new  changes 


set  label  ' '  at  x,y  displays  a  label  at  position  x,y 
set  data  style  points  .  .  .  displays  data  as  points 
set  data  style  lines  ....  displays  data  as  lines 
set  data  style  linespoints  .  displays  data  as  lines 

&  points 

p  ' cp.dat '  w  lines  .  .  .  plots  ’cp.dat'  using  lines 
p  ' cldm.dat'  u  1:3  w  lines  .  plots  'cldm.dat '  using 

1:3  (a  vs  cd)  using  lines 
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2.  Onuplot  Batch  Files 


fuss 

#Ct  distribution 
set  grid 
set  key 
set  label 

set  function  style  lines 

set  tics  out 

set  ticslevel  0.5 

set  xtics 

set  ytics 

set  ztics 

set  title  "Pressure  Coefficient  Distribution*  0,1 

set  xlabel  "X/C"  0,-1 

set  xrange  10  :  1] 

set  ylabel  "  Cp  "  0, .5 

set  yrange  (1:4] 

plot  'cp.dat'  w  lines 


V*L 

•Velocity  distribution 
set  grid 
set  key 
set  label 

set  function  style  lines 

set  tics  out 

set  ticslevel  0.5 

set  xtics 

set  ytics 

set  ztics 

set  title  "Velocity  Distribution"  0,1 

set  xlabel  "X/C"  0,-1 

set  xrange  [0  :  1] 

set  ylabel  "  Velocity  "  0,.5 

set  yrange  (0  :  4] 

plot  'vel.dat'  w  lines 


CLDM 

♦cldm  distribution 
set  grid 
set  key 
set  label 

set  function  style  lines 

set  tics  out 

set  ticslevel  0.5 

set  xtics 

set  ytics 

set  ztics 

set  autoscale 

set  title  "Lift  Coefficient  Distribution"  0,1 

set  xlabel  "AOA"  0,-1 

•set  xrange  (0  :  1] 

set  ylabel  "Cl"  0,.5 

•set  yrange  (1  :  4] 

•plot  ' cldm0012.dat '  u  1:3,  'cldm2412.dat’  u  1:3 
plot  'cldm.dat'  u  1:2 


ozs 

•  Cf  and  Del*  Distribution 

set  grid 

set  key 

set  label 

set  border 

set  function  style  lines 
set  tics  out 
set  ticslevel  0.5 
set  xtics 

set  ytics  -.02, .001, .01 
set  ztics 

set  title  "Cf  and  Delta-Star"  0,1 
set  xlabel  "X/C"  0,-1 
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set  xrange  [0:1] 

set  yrange  (-.002  :  .006] 

plot  "cf.dat"  w  lines,  "dls.dat"  w  lines 


non  lx 

t  Boundary  Layer  Velocity  Profiles 

#set  terminal  xll 

set  grid 

set  key 

set  nolabel 

set  function  style  lines 

set  tics  in 

set  ticslevel  0.5 

set  xtics 

set  ytics 

set  ztics 

set  title  “Boundary  Layer  Velocity  Profiles"  0,0 

set  xlabel  "Airfoil  Upper  Surface"  0,0 

sat  xrange  (0  :  10] 

set  ylabel  "y/c"  0,.5 

set  yrange  (0  :  .0015] 

iplot  "prol4.x25"  w  lines,  "pro24.x25"  w  lines 
plot  "prol.dat"  w  lines,  "pro2.dat*  v  lines 


XT 

#  Plotting  routine  for  HP2P  postscript  printer 
set  term  postscript 
set  output  'pt.gr' 
replot 

set  term  xll 
! Ip  -dhp2p_ps  pt.gr 


F.  AIRFOIL. F  &  PANEL. F  &  BL2D.F  SOURCE  CODES 


PROGRAM  AIRFOIL 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  CDR  T .  Johnston  (AUGUST  1993) 

C  Generates  surface  coordinates  for  any  4  or  5  digit  NACA  airfoil 

C  and  puts  them  in  'points.dat'  using  spacing  function: 

C  .5  *  (  1.  -  cos  (PI*  (node/tota)  points)  )  ) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

COMMON  /BOD/  NLOWER, NUPPER, NODTOT.X (202) , Y (202)  U2D00190 

COMMON  /PAR/  NACA,TAU,EPSMAX, PTMAX  U2D03350 

OPEN(unit-3, file»'points.dat ', status*' unknown • ) 

CALL  INDATA 
CALL  SETUP 

WRITE  (3,1010)  (X(I),Y(I),  I“l,  NODTOT+ 1 )  U2D00470 

WRITE  (6,1010)  (X (I ) , Y (I ) , I-l,NODTOT+l) 

1010  FORMAT  (2 (F8 . 6, 2x) )  U2D00480 

end 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D0  3220 
C  SUBROUTINE  BODY (Z, SIGN, X, Y)  CU2D03240 

C  RETURN  COORDINATES  OF  POINT  ON  THE  BODY  SURFACE  CU2D03260 

C  Z  -  NODE-SPACING  PARAMETER  CU2D03280 

C  X, Y  *=  CARTESIAN  COORDINATES  CU2D03290 

C  SIGN  -  +1.  FOR  UPPER  SURFACE  CU2D03300 

C  -1.  FOR  LOWER  SURFACE  CU2D03310 

CCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2  DO  3  3  3  0 
SUBROUTINE  BODY ( Z, SIGN, X, Y)  U2D03340 

COMMON  /PAR/  NACA, TAU.EPSMAX, PTMAX  U2D03350 

IF  (SIGN  .LT.  0.0)  Z  -  1.  -  Z  U2D03360 

CALL  NACA45 (Z, THICK, CAMBER, BETA)  U2D03370 

X  -  Z  -  SIGN'*THICfC*SIN (BETA)  U2D03380 

Y  -  CAMBER  +  SIGN*THICK*COS (BETA)  U2D03390 

RETURN  U2D03400 

END  U2D03410 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D06440 
C  SUBROUTINE  INDATA  CU2P06460 

C  SET  PARAMETERS  OF  BODY  SHAPE  CU2D06480 

C  FLOW  SITUATION,  AND  NODE  DISTRIBUTION  CU2D06490 

C  USER  MUST  INPUT  CU2D06510 

C  NLCWER  -  NUMBER  OF  NODES  ON  LOWER  SURFACE  CU2D06520 

C  NUPPER  -  NUMBER  OF  NODES  ON  UPPER  SURFACE  CU2D06530 

C  PLUS  DATA  ON  BODY  AND  SUBROUTINE  BODY  CU2D06540 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2  DO  6  5  60 


SUBROUT I ME  INDATA 

COMMON  /BOD/  NLOWER, NUPPER, NODTOT,  X (202) ,  Y (202) 

COWON  /PAR/  NACA,  TAU, EPSMAX,  PTMAX 

WRITE (6,*)  'INPUT  THE  NUMBER  OF  PANELS  ON  UPPER  AND  LOWER  SUFACE: 
♦NLOWER,  NUPPER  ?' 

READ  (5, *)  NLOWER, NUPPER 
WRITE  (6, 558) NLOWER, NUPPER 

558  FORMAT  (///2X,  • .............. , 

2  2X,  'NO.  PANELS  UPPER  SURFACE  -'  ,15,/, 

3  2X,  'NO.  PANELS  LOWER  SURFACE  «'  ,15,/, 

4  2X,  ———————————  ’ ) 

WRITE (6,*)  'INPUT  THE  NACA  AIRFOIL  TYPE:  4  or  5  digit  series  (IE. 
+XXXX,  or  230XX)  ?' 

READ  (5,*)  NACA 
WRITE  (6,*)  NACA 


IEPS 

I  PTMAX 

ITAU 

EPSMAX 

PTMAX 

TAU 

IF  (IEPS 

PTMAX 

EPSMAX 

RETURN 

END 


NACA/ 1000 

NACA/ 100  -  10*IEPS 
NACA  -  1000'IEPS  - 
IEPS*0.01 
IPTMAX‘0. 1 
ITAU- 0.01 
.LT.  10)  RETURN 
0.2025 

2. 65 95* PTMAX* -3 


100-IPTMAX 


U2D06570 

U2D06590 

U2D06610 


U2D06700 
U2D067 10 


U2D067  30 
U2D06740 
U2D06750 
U2D06760 
U2 DO 67 70 
U2D06780 
U2 DO 67 90 
U2DO6800 
U2D06810 
U2D06820 
U2D06830 
U2D06840 
U2D06850 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2 DO  9 1 2  0 
C  SUBROUTINE  NACA4 5 ( Z, THICK, CAMBER, BETA)  CU2D09140 
C  EVALUATE  THICKNESS  AND  CAMBER  CU2D09160 
C  FOR  NACA  4-  OR  5-DIGIT  AIRFOIL  CU2D09170 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D09190 


SUBROUTINE  NACA4 5 (Z, THICK, CAMBER, BETA) 

COMMON  /PAR/  NACA, TAU, EPSMAX, PTMAX 
THICK  -  0.0 

IF  (Z  .LT.  l.E-10)  GO  TO  100 

THICK  -  5. *TAU* ( . 2969‘SQRT (Z)  -  2* (.126  +  Z*(.3537 
-  Z* ( . 2843  -  2*. 1015)))) 

IF  (EPSMAX  -EQ.  0.0)  GO  TO  130 
IF  (NACA  -GT.  9999)  GO  TO  140 
IF  (Z  .GT.  PTMAX)  GO  TO  110 

CAMBER  -  EPSMAX/ PTMAX/ PTMAX* (2. ‘PTMAX  -  Z)*Z 
DCAMDX  -  2. -EPSMAX/ PTMAX/ PTMAX* (PTMAX  -  Z) 

GO  TO  120 

CAMBER  -  EPSMAX/ (1. -PTMAX) **2*(1.  +  Z  -  2 . *PTMAX) * ( 1 .  -  Z) 


CAMBER  - 
DCAMDX  - 
BETA 
RETURN 
CAMBER  - 
BETA 
RETURN 
IF  (Z  .GT 
W 

CAMBER  - 
DCAMDX  - 
GO  TO  120 
CAMBER  - 
DCAMDX  - 
GO  TO  120 
END 


2. -EPSMAX/ (1. -PTMAX)' 
AT  AN  (DCAMDX) 


'(PTMAX  -  Z) 


PTMAX)  G 

Z/ PTMAX 

EPSMAX-W* ( (W  - 


GO  TO  150 


*W  +  3.  -  PTMAX) 


EPSMAX* 3. *W* (1.  -  W)/ PTMAX 

EPSMAX*  (1.  -  Z) 

-  EPSMAX 


U2D09200 
U2D092) 0 
U2D09220 
U2D09230 
U2D09240 
U2D09250 
U2D09260 
U2D09270 
U2D09280 
U2D09290 
U2D09300 
U2D09310 
U2D09320 
U2D09330 
U2D09340 
U2D09350 
U2D09360 
U2D09370 
U2D09380 
U2D09390 
U2D09400 
U2D094 10 
U2D09420 
U2D09430 
U2D09440 
U2D09450 
U2D09460 
U2D09470 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D11360 
C  SUBROUTINE  SETUP  CU2D11380 

C  SE~UP  COORDINATES  OF  PANEL  NODES  AND  SLOPES  OF  PANELS  CU2D11400 

C  COORDINATES  ARE  READ  FROM  INPUT  DATA  FILE  U!  LESS  CU2D11410 

C  THE  AIRFOIL  IS  OF  NACA  XXXX  OR  NACA  230XX  TYPE  CU2D11420 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCU2D1 14  4  0 
SUBROUTINE  SETUP  U2D11450 

COMMON  /BOD/  NLOWER, NUPPER, NODTOT, X{202)  ,Y(202)  U2D11460 

PI  -  3.1415926585  U2D11490 

PI2INV  -  .5/PI  U2D11500 

C  SET  COORDINATES  OF  NODES  ON  BODY  SURFACE  U2D11520 

NPOINT  -  NLOWER  U2 Dll 550 

SIGN  -  -1.0  U2D11560 

NSTART  -  0  U2D11570 

DO  110  NSURF  -  1,2  U2D11580 

DO  100  N  -  1, NPOINT  U2D11590 

FRACT  -  FLOAT (N-l) /FLOAT (NPOINT)  U2D11600 

Z  -  . 5* (1 .  -  COS (PI -FRACT))  U2D11610 


177 


Appendix  A 


112 

I  -  NSTART  +  N 

U2D11620 

113 

CALL  BODY (2, SIGN, X (I ) , Y ( I ) ) 

U2D11630 

114 

100 

CONTINUE 

U2D11640 

115 

NPOINT  »  NUPPER 

U2D11650 

116 

SIGN  -  1.0 

U2D11660 

117 

NSTART  «  NLOWER 

U2D11670 

110 

110 

CONTINUE 

U2D11660 

119 

NODTOT  -  NLOWER  +  NUPPER 

U2D11690 

120 

X(NODTOT+l)  -  X  ( 1) 

U2D11700 

121 

Y  (NODTOT  +  1)  -  Y(l) 

U2D11710 

122 

RETURN 

U2D11930 

123 

■**■**•* 

END 

U2D11940 

PROGRAM  VAMZX. 

*  *****  AUGUST  1993  *♦** 

*  +++++  CDR  T.  Johnston  +++++ 

*  PURPOSE:  CALCULATE  THE  VELOCITIES  ON  AN  AIRFOIL  USING  A  PANEL  METHOD. 

*  LIM:  Arrays  currently  dimensioned  for  maximum  of  N“200  panels 

*  Input  data  file  points.dat  will  have  N+l  points 

*  Output  velocities  are  referenced  to  freestream,  ie.  V/Vinf 


*  METHOD: 

* 


FLOWFIELD  CONSISTS  OF  THREE  SIMPLER  FLOWS:  FREESTREAM,  SOURCE, 
AND  VORTICITY.  SOURCE  DISTRIBUTIONS  q(j)  VARY  FROM  PANEL  TO 
PANEL.  VORTICITY  STRENGTH  GAMMA  IS  THE  SAME  FOR  ALL  PANELS. 
BOUNDARY  CONDITIONS  INCLUDE  FLOW  TANGENCY  AT  CONTROL  POINTS  AND 
KUTTA  CONDITION  FOR  FIRST  AND  LAST  PANELS.  INFLUENCE 
COEFFICIENTS  COMBINED  TO  FORM  NEW  COEFFICIENTS  IN  LINEAR  SYSTEM 


OF  n+l  EQUATIONS,  n+l  UNKNOWNS  (q  (1)  .  .  .q  (n) ,  GAMMA). 
AT  CONTROL  POINTS  EVALUATED  FROM  q(j)  AND  GAMMA. 


VELOCITIES 


Variable  Definitions 
N  «*  •  Panels 

RL  -  Reynolds  Number 

IANS  -  USER  Transition  Location  Flag 

TRANSUPPER  -  Upper  Transition  Point 
TRANSLOWER  -  Lower  Transition  Point 
ALPHA  “  Angle  of  Attack 

P  «Mach  Number 

BETA1  -  SQRT  (  1-M~2  ) 

X (I)  -  X  Surface  Coordinates 

Y ( I )  -  Y  Surface  Coordinates 

XM (I )  -  X  Control  Point? 

YM ( I )  -  Y  Control  Points 

R(I,J)  -  Distance,  Control  Point  to  Panel  with  Unit  Strength 
Singularity  Distribution 

AN (I , J)  -  Normal  Velocity  Component  Induced  at  Ith  Panel  Control 

Point  by  a  Unit  Source  on  Jth  Panel 

AT  ( I , J )  -  Tangential  Velocity  Component  Induced  at  Ith  Panel  Control 

Point  by  a  Unit  Source  on  Jth  Panel 
BN(I,J)  <*  Normal  Velocity  Component  Induced  at  Ith  Panel  Control 
Point  by  a  Unit  Vorticity  on  Jth  Panel 
BT(I,J)  -  Tangential  Velocity  Component  Induced  at  Ith  Panel  Control 
Point  by  a  Unit  Vorticity  on  Jth  Panel 
q ( I )  -  Source  Strength 

GAMMA(I)  *  Vorticity  Strength 

Vt(I)  -  Normalized  Tangential  Velocity  6  I  Control  Point  (  V/Vinf  ) 

Vtc(I)  ■  Compressible  Normalized  Tangential  Velocity  @  I  Control  pt 

CP  -  Pressure  tdef f icient  {  Cp  *  1  -  VtA2  1 

ISTAG  •  Location  of  Stagnation  Panel  (Vt  reversal) 


1  REAL 

2  : 

3 

4 

5  : 

6 

7  : 

8 

9  *  NUMBER  OF  PANELS  ON  AIRFOIL  SURFACE: 

10  PRINT*, 'INPUT  NO.  OF  PANELS  (1  less  than  #lines  in  points.dat):’ 

11  READ  *,N 

12  PI-ACOS(-l-) 


X (1:202) ,Y (1:202) , XM (1:202) , YM (1:202) , 

At (1:202,  1:202) ,Bt  (1:202,1 : 202) , 
a(l:202, 1:202), b(l:202), 

q ( 1 : 202) ,Vt (1:202) .ALPHA, VtC (1 : 202) , cP, cPc,CCPC (202) , 
PI, GAMMA, THETA(1:202)  .NUM.DEN, 

R(l:202, 1:202) ,BETA(1: 202, 1: 202) ,NUM1,DEN1,NUM2,DEN2, 
AAUG!1:202, 1: 202) , An (1:202, 1:202) , Bn (1:202, 1:202) 
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13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 


OPEN  (UNIT-88, FILf> 'points .da t ’ , STATUS” ’UNKNOWN* ) 

OPEN  (UNIT-89, FILE- • vel .dat ’, STATUS- ’UNKNOWN’ ) 

OPEN  (UNIT-81,  FILE- ’ cp.dat ’ , STATUS- * UNKNOWN  * ) 

OPEN  ( UNI T- 90 , FI LE- ’ bl 2d . da  t ’ , STATUS- 1 UNKNOWN ’ ) 

OPEN  (UNIT-91 , FILE- ’ cldm . da t ’ , STATUS- *  UNKNOWN  * ) 

print  *, ’INPUT  REYNOLDS  NUMBER  -  _  (X  E+6) ’ 

READ  *,RL 

RL  -  RL*1000000. 

print  ‘.’ENTER  0  IF  TRANSITION  LOCATIONS  UNKNOWN  (.8  4  .999  USED)’ 
PRINT  *,’  1  IF  You  wish  to  enter  Transition  Locations’ 

READ  *, IANS 

IF (IANS . EQ. 1)  THEN 

PRINT  *, ’INPUT  X/C  TRANSITION  LOCATION  FOR  UPPER  SURFACE:’ 

READ  *,  TRANSUPPER 

PRINT  ♦, ’INPUT  X/C  TRANSITION  LOCATION  FOR  LOWER  SURFACE:* 

READ  *,  TRANS LOWER 
ELSE 

‘“These  are  arbitrary  values  intended  to  be  downstream  of  the 
*“  actual  transition  points,  for  use  with  Michel's  criterion  in  BL2D 
TRANSUPPER- . 8 
TRANSLOWER- . 999 
ENDIF 

WRITE  (90,50)  RL, TRANSUPPER, TRANSLOWER 
50  FORMAT  (F10. 0, F10 . 6, FID . 6) 

PRINT  ♦, ’INPUT  ANGLE  OF  ATTACK  IN  DEGREES:’ 

READ  ‘.ALPHA 
ALPHA-ALPHA* PI / 1 80 . 0 

PRINT  *, 'INPUT  MACH  NUMBER  (0  FOR  INCOMPRESSIBLE):' 

READ  ‘,P 
p  -  rl/ 10000000 . 

BETA1-  (1.0-P“2.0)“.5 

“  Read  in  Points.dat  -  Surface  Coordinates  must  be  TE,  Cloclcwise.TE 
DO  30  I-l.N+l 
READ  (88,*)  X ( I ) , Y(I) 

30  CONTINUE 

*  This  section  defines  the  influence  coefficients: 

DO  110  I— 1, N 

*  Control  Points 
XM(I)-0.5*(X(I)+X<I  +  1)) 

YM(I)-0.5*(Y(I)+Y(I  +  1)) 

R  (1 , 1)  -  (XM (I )  -X  ( 1)  )  “2 .  +  ( YM (I )  -  Y  (1) )  “2 . 

DO  100  J-l, N 
NUM=Y(J+1)-Y(J) 

DEN-X ( J+l ) -X ( J) 

THETA( J) -ATAN2 (NUM, DEN) 

NUMl-YM(I) -Y  (J+l) 

DEN1-XM (I) -X (J+l) 

NUM2-YM (I ) -Y ( J) 

DEN2-XM (I ) -X ( J) 

BETA ( I , J ) -ATAN2 ( (NUM1‘DEN2-DEN1‘NUM2) , (DEN1‘DEN2+NUM1*NUM2) ) 

R(I,  J+l)  — (XM(I)-X(J+1)  )“2.+  (YM(I)-Y(J+1)  )“2. 

THETADI F-THETA ( I ) -THETA ( J ) 

IF  (I  .EQ.  J) 

:  THEN 

An  (I ,  J)  -0 . 5 
Bn  (I,  JJ-0.0 
ELSE 

An(I,  J)  =  (l/  (2*PI)  )  *  (SIN  (THETADI  F)  ‘LOG  (R  (I,J+1)/R(I,J)) 

:  ‘.5+COS (THETADI F) ‘BETA (I, J) ) 

Bn(I,J)-(l/(2*PI))‘  (COS  (THETADI  F)  *LOG(R(I,  J+l)  /R(I,  J) ) 

:  ‘.5-SIN (THETADI F) ‘BETA (I , J) ) 

END  IF 

At  (I,  J)— Bn  (I,  J) 

Bt(I,  J)-An(l,  J) 

100  CONTINUE 
110  CONTINUE 

*  Matrix  coefficients  of  linear  system  defined  (a's  and  b's)  : 

a (N+l,N+l)-0.0 
DO  130  1-1, N 
a (I,N+1)-0.0 
DO  120  J-1,N 
a  (I,  J)  -An  (I,  J) 
a  (I,N+1)  -a  (I,N+1)  +Bn  (I,  J) 
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91 

120 

CONTINUE 

92 

b (I  )--1.0*SIN (ALPHA-THETA (I) ) 

93 

a (N+ 1,1) “At (1,1) +At (N, I ) 

94 

a(N+l,N+l)-a(N+l,N+l)+Bt(l,I)  +Bt  (N,I) 

95 

130 

CONTINUE 

96 

b(N+l)  --1 .  0*  (COS(ALPHA-TH£TA(l) > +COS (ALPHA- THETA (N) ) ) 

97 

98 

*  Define  augmented  matrix  for  input  to  linear  solver  subroutine  GAUSS 

99 

DO  150  I-1,N+1 

100 

DO  140  J-1,N+1 

101 

AAUG (X, J) -a (I,  J) 

102 

140 

CONTINUE 

103 

AAUG (I,  N+2) -b (I) 

104 

150 

CONTINUE 

105 

106 

CALL  GAUSS (N+l, AAUG) 

107 

108 

*  Define  source  and  vorticity  strengths: 

109 

DO  160  I-1,N 

110 

q(I)-AAUG(I,N+2) 

111 

160 

CONTINUE 

112 

GAMMA- AAUG ( N+ 1 ,  N+ 2 ) 

113 

114 

*  Calculate  velocity  on  each  panel  at  control  point 

115 

NSTAGFLAG-0 

116 

I STAG- 0 

117 

DO  180  1-1,  N 

118 

Vt  (I)-O.O 

119 

DO  170  J-1,N 

120 

Vt (I) -At (I, J) *q (J) +GAMMA*Bt (I,J)+Vt  (I) 

121 

170 

CONTINUE 

122 

Vt (I)-Vt (I) +COS (ALPHA-THETA(I )  ) 

123 

VtC(I)«Vt (I) /BETA1 

124 

Cp-1 . 0-Vt (I) **2 

125 

CpC-l.O-VtCU)*^ 

126 

127 

** 

Find  Stagnation  Point  for  BL2D2 

128 

IF  ( (Vt (I) .GT.0)  .AND.  (NSTAGFLAG . EQ. 0) )  THEN 

129 

I STAG- I 

130 

NSTAGFLAG- 1 

131 

ENDIF 

132 

Output  only  Positive  Velocities 

133 

IF  (Vt(I).LT.O)  Vt  (I)  --Vt  (I ) 

134 

IF  (VtC(I)  .LT.0)  VtC(I)— VtC(I) 

135 

WRITE  (89,45)  XM(I),VtC(I) 

136 

* 

-Cpc  output  places  suction  surface  in  the  ’down'  position 

137 

WRITE  (81,45)  XM { I ) , -Cpc 

138 

CCPC(I)  -  CPC 

139 

180 

CONTINUE 

140 

45 

FORMAT  (2 (F10. 5, 2X) ) 

141 

48 

FORMAT  (3 (F10. 5) ) 

142 

49 

FORMAT  (315) 

143 

WRITE  (90,49)  N,ISTAG,IANS 

144 

DO  190  I«1,N 

145 

WRITE  (90,48)  XM ( I ) , YM (I ) , VtC (I ) 

146 

190 

CONTINUE 

147 

CALL  FANDM (ALPHA, CL, CD, CM, CCPC,X, Y,  N) 

148 

WRITE  (91,191) ALPHA* 18 0 . / pi , CL,  CD,  CM 

149 

write (6, 1031) cl, cd, cm 

150 

1031 

format  (  /, 

151 

+  2x, ’Cl  -  ' ,  f 10. 6,  / , 

152 

+  2x, 'Cd  -  ' , f 10 . 6, /, 

153 

+  2x, 'Cm  -  ' , f 10 . 6, /  ) 

154 

191 

FORMAT  (/,2X,F4.1,  3  (2X,F9.6>) 

155 

CLOSE (UNIT-88) 

156 

CLOSE (UNIT-89) 

157 

CLOSE (UNIT-81) 

158 

CLOSE (UNIT-90) 

159 

CLOSE (UNIT-91) 

160 

print  *, 'CALCULATIONS  COMPLETE' 

161 

PRINT  *, 'OUTPUT  FILES  ARE  vel.dat,  cp.dat,  CLDM.DAT,  bl2d.dat' 

162 

STOP 

163 

END 

164 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

165 

c 

SUBROUT INX  FANDM 

166 

c 

INTEGRATE  PRESSURE  DISTRIBUTION  BY  TRAPEZOIDAL  RULE 

167 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
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168 

169 

no 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 


SUBROUTINE  FANDM (ALPHA, cl , cd, cm, CCPC, x, y, n) 

REAL  ALPHA, CL, CD,CM,CCPC<202)  ,X(202) ,  Y  (202)  , CFX,CFY,XM1D,  YMID, 
:  DX,  DY 

CFX  -  0.0 

CFY  -0.0 

CM  -  0.0 

DO  100  I  -  l.N 

**  moment  coeff  is  computed  around  pivot  point  at  25%  Chord 
XMID  -  . 5* (X (I)  ♦  X ( 1+ 1 ) )  -  0.25 

YMID  -  .5*  (Y(I)  +  Y (1  +  1) ) 

DX  -  X  (1  +  1)  -  X  (I ) 

DY  -  Y  (1  + 1)  -  Y(I) 

CFX  -  CFX  +  CCPCd)  *DY 

CFY  -  CFY  -  CCPC  (I )  *DX 

CM  -  CM  +  CCPCd)  *  (DX*XMID  +  DY*YMID) 

100  CONTINUE 

CD  -  CFX*COS (ALPHA)  +  CFY*SIN (ALPHA) 

CL  -  CFY*COS (ALPHA)  -  CFX* SIN (ALPHA) 

RETURN 

END 


*  Gauss  elimination  procedure 

SUBROUT IN*  GAUSS (N,  Z) 


192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 


INTEGER  PV 

REAL  Z(l:202, 1:203), E 
E-1.0 

10  IF  (1.0+E.GT. 1.0)  THEN 
E-E/2.0 
GOTO  10 
END  IF 
E-E+2 

EPS2  -  2  *  E 

c  PRINT  *,'  MACHINE  EPSILON-', E 

1005  DET-  1 

DO  1010  I-l.N-l 
PV=I 

DO  1020  J«I+1,N 

IF  (ABS (Z (PV, I) )  .LT.  ABS (Z (J, I) ) )  PV-J 
1020  CONTINUE 

IF  (PV.EQ.I)  GOTO  1050 
DO  1040  JC-l.N+l 
TM-Zd,  JC) 

Z(I,JC)-Z(PV,JC) 

Z(PV, JC)-TM 
1040  CONTINUE 

1045  DET— 1*DET 

1050  IF  (Z!I,I).EQ.0)  THEN 

GOTO  1200 
END  IF 

DO  1060  JR-I+1,  N 

IF  (Z (JR, I) .NE.0)  THEN 
R-Z  (JR,  I)  /Z  (I,  I) 

DO  1075  KC-I+l.N+l 
TEMP- Z ( JR, KC ) 

Z  (JR,  KC)-Z  (JR, KC)  -R*Z  (I,KC) 

IF  (ABS (Z ( JR, KC) ) . LT . EPS2*TEMP)  Z(JR,KC)-0.0 

C  ! —  if  the  result  of  subtraction  is  small-r  than 

C  ! —  2  times  machine  epsilon  times  the  original 

C  ! —  value,  it  is  set  to  zero. 

1075  CONTINUE 

END  IF 

1060  CONTINUE 
1010  CONTINUE 

DO  1084  I— 1,N 
DET-DET*Z (I, I) 

1084  CONTINUE 

IF  <Z(N,N) .EQ.0)  GOTO  1200 
Z(N,N+1)-Z(N,N+1)/Z(N,N) 

DO  1130  NV-N-1,1,-1 
VA-Z (NV,N+1) 

DO  1120  K-NV+l.N 

VA-VA- Z  (NV,  K)  * Z  (K,  N+ 1 ) 

1120  CONTINUE 

Z  (NV,  N+ 1 )  -VA/ Z  (NV,  NV) 

1130  CONTINUE 
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245 

246 

247 

246 

249 

1200 

RETURN 

PRINT  *, 'MATRIX  IS  SINGULAR' 

PRINT  *, 'I-',I. ’Z(I.I)-’,Z(1.I) 

STOP 

END 

+  ****' 

PROGRAM  BL2D 

* 

CDR  T.  Johnston  (July  1993) 

•* 

XCTRI(l)  «  Input  for  upper  transition  pt  from  pa  d 

* 

XCTRI (2)  -  Input  for  Lower  transition  pt  from  panel 

4> 

NI  -  #  Panels 

* 

IS  “  Stagnation  Pt 

* 

ITRANS  -  Default/USER  input  for  transiton  flag 

* 

XI  (I)  <*  Control  pts 

* 

YI(I)  -  Control  pts 

•* 

VEId)  -  Tangential  Velocities 

* 

NXTSF ( 1 !  -  #  panels  on  upper  surface 

* 

NXTSF (2 )  -  ♦  panels  on  lower  surface 

* 

NXT  -  #  panels  on  a  surface  in  200  ISF  loop 

* 

ISF  -  Surface  flag  (1-upper,  2-Lower) 

* 

XCd)  -  Redefined  Control  pts 

•* 

YC  ( I )  -  Redefined  Control  pts 

* 

X(I)  -  Original  nodes 

1 

COMMON  /BLC0/  RL, TRANSNEW (2) , NBL (2) , XCTRI (2) , nt f lag, NI 

2 

COMMON  /BLC1/  XCTR, XC (200) , YC (200) , itr 

3 

COMMON  /BLC2/  NX, NXT, NP, NPT, NTR, IT, ISF 

4 

COMMON  /BLC3/  X (200 ) , UE  (200) , PI (200) , P2 (200) , GMTR (200 ) 

5 

COMMON  /BLCS/  DLS (200) , VW(200) , CF (200) , THT (200) 

6 

integer  nt f lag, ni , nx, np, nxt, is, itrans, isf , it, npt,ntr 

7 

DIMENSION  NXTSF (2) ,XI (200) ,YI (200) ,VEI (200) 

8 

CHARACTER  VAR* 2 5 

9 

REAL  PGAMTR 

10 

OPEN  (UNIT- 9, FILE- 'bl2d.dat ' , STATUS- ' UNKNOWN ’ ) 

11 

OPEN  (UNIT-8,  FILE- 'bl2d.out  * , STATUS- ' UNKNOWN 1 ) 

12 

OPEN  (UNIT-20,  FILE- ' cf .dat ' , STATUS- ' UNKNOWN ' ) 

13 

OPEN  (UNIT-21,  FI LE- ' dl S . da t ' , STATUS- ' UNKNOWN ’ ) 

14 

OPEN  (UNIT-54 , FILE- ' prol . dat ' , STATUS- ' UNKNOWN 1 ) 

15 

OPEN  ( UNIT-55 , FI LE- ' pro2 . dat ’ , STATUS- ' UNKNOWN ' ) 

16 

*  + 

READ  BL2D.DAT 

17 

WRITE (6,*)  ’READING  THE  DATA...' 

18 

READ  (  9.*  )  RL, XCTRI (1) , XCTRI (2) 

19 

READ  (  9,*  )  NI, IS, ITRANS 

20 

READ  (  9,15  )  (XI  (I)  ,  YI  (I ) ,  VEI  (I ) ,  1-1,  NI ) 

21 

WRITE (6,*)  'INPUT  OF  DATA  COMPLETE.' 

22 

♦  ** 

Check  Stagnation  Point  for  adjustment 

23 

print  * 

24 

print  *, '  I  Stagnation  is  ' 

25 

print  * , IS 

26 

print  * 

27 

print  *, '  INPUT  NEW  I  Stagnation  -  ' 

28 

READ  *,IS 

29 

** 

Write  to  B12d.out 

30 

5 

WRITE (8, 90)  RL, XCTRI (1) , XCTRI (2) 

31 

NXTSF (1) -  NI  -  IS  +  1 

32 

NXTSF (2) -  IS 

33 

*** 

DATA  FOR  EACH  SURFACE  (UPPER, LOWER) 

34 

DO  200  ISF  -  1,2 

35 

ntf lag-0 

36 

NXT  -  NXTSF (IS! ) 

37 

GO  TO  (201, 202), ISF 

38 

*♦* 

REDEFINE  CONTROL  POINTS 

39 

C 

UPPER  SURFACE 

40 

201 

II  -  IS-1 

41 

DO  211  1-1 , NXT 

42 

II  -  11*1 

43 

XC(I)  -  XI  (II) 

44 

YC (I )  -  YI  (II ) 

45 

UE(I)  =  VEI  (II) 

182 


Appendix  A 


46 

211 

CONTINUE 

47 

GO  TO  300 

48 

C 

LOWER  SURFACE 

49 

202 

II  -  IS+1 

50 

DO  212  1=1, NXT 

51 

II  =  II-l 

52 

XC(I)  -  XI (II) 

53 

YC  ( I )  -  YI  (II) 

54 

UE  (I)  -  VEI  (II) 

55 

212 

CONTINUE 

56 

300 

X(l)  -  0.0 

57 

*  *  * 

DEFINE  NODES 

58 

DO  301  I-2.NXT 

59 

301 

X  (I )  -  X(I-1)+SQRT(  (XC(I)-XC(I-1))**2+<YC(I)-YC(I-1)  ) 

60 

C 

TRANSITION  LOCATION- 

61 

DO  320  1=1, NXT 

62 

GMTR(I)  -  0.0 

63 

IF  (XC(I)  .GE.  XCTRI  (ISF)  )  GO  TO  321 

64 

320 

CONTINUE 

65 

*•* 

NTR  IS  TRANSITION  PANEL 

66 

321  NTR  -  I 

67 

CEBECI-SMITH  TURBULENCE  MODEL 

6P 

PGAMTR  -  1200. 

69 

RXNTR  -  X(NTR-l)*  UE(NTR-l)  *  RL 

70 

GGFT  -  RL**2/RXNTR**1.34*UE(NTR-1)**3 

71 

UEINTG  -  0.0 

72 

U1  -  0 . 5/UE (NTR-1 ) /  PGAMTR 

73 

DO  322  I  -  NTR, NXT 

74 

U2  -  0. 5/UE  (I) /PGAMTR 

75 

UEINTG  =  UEINTG+(U1+U2)*(X(I)-X(I-1)) 

76 

U1  -  U2 

77 

GG  -  GGFT*UEINTG*(X(I)-X(NTR-1)) 

78 

IF (GG  .GT.  10.0)  GO  TO  323 

79 

GMTR(U-  1 . 0-EXP  ( -GG) 

80 

322 

CONTINUE 

81 

323 

DO  324  1 1  =  1 , NXT 

82 

324 

GMTR(II)  =  1.0 

83 

C 

PRESSURE  GRADIENT  PARAMETERS 

84 

DX  -  X (2) -X (1) 

85 

DUE  -  UE(2)-UE(1) 

86 

ANG2  -  ATAN2 (DUE, DX) 

87 

DL2  -  DX 

88 

DO  331  I  -  2.NXT-1 

89 

ANG1  -  ANG2 

90 

DL1  -  DL2 

91 

DX  -  X  (1  +  1)  -X  (I ) 

92 

DUE  -  UE ( 1+1 ) -UE (I ) 

93 

ANG2  -  ATAN2 (DUE, DX) 

94 

DL2  -  DX 

95 

ANG  -  (DL2*ANG1+DL1*ANG2) / (DL1+DL2) 

96 

P2  (I )  -  TAN  (ANG) 

97 

331 

CONTINUE 

98 

P2 (NXT)  =  2 .  *DUE/DL2  -  P21NXT-1) 

99 

DO  330  I  -  2, NXT 

100 

P2  (I)  -  X (I )  *  P2  (I)  /UE  (I ) 

101 

Pl(I)  -  0.5  *  (1.0  +  P2 (I) ) 

102 

330 

CONTINUE 

103 

P2 ( 1 )  -  1.0 

104 

PI  (1)  =  0.5  *  (1.0  +  P2 (1) ) 

105 

** 

BOUNDARY  LAYER  CALCULATION 

106 

WRITE (6,*)  'BOUNDARY  LAYER  COMPUTATIONS  IN  PROGRESS. 

107 

CALL  BL 

108 

WRITE (8, 910) ISF, (I,XC(I),X(I),VW(I) , CF (I ) , DLS ( I ) , THT 

109 

if(ISF.EQ.l)  then 

110 

write  (20,  905)  (XC(I)  ,CF(I) ,  1=2,  NXT) 

111 

write (21,  905)  (XC (I) , DLS (I) ,1=2, NXT) 

112 

end  if 

113 

905  FORMAT (F8.4,4X,E11.4) 

114 

200 

CONTINUE 

115 

***IF  AOA  is  0  deg.,  make  trans.  Iocs,  equal: 

116 

if (vei (2) .eq.vei (ni-1) )  transnew ( 1 ) =transnew (2) 

117 

Display  Michels  transition  estimate 

118 

c 

if (ITRANS.eq.O)  then 

119 

print  *,  'MICHELS  TRANSITION  ESTIMATE  ***** 

120 

print  *, ’Estimate  for  upper  transition: ', transnew 

121 

print  *, 'Estimate  for  lower  transition: ', transnew 

122 

c 

END  IF 

123 

CLOSE (UNIT-8) 

1,NXT) 
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202 

203 

204 

205 
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211 
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240 
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245 
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247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
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IF  (NP  .LE.  NPT  .AND.  IGRCW  .LE.  IGRCWT)  THEN 
IT  -  0 
GO  TO  5 
ENDIF 
ENDIF 

101  CALL  OUTPUT 

IF  (NX  .LT.  NXT)  GO  TO  1 

RETURN 

END 


SUBROUTINE  ccer 

COMMON  /BLC2/  NX,NXT,NP,NPT,NTR, IT,ISF 

COMMON  /BLC3/  X (200) ,UE (200) , PI (200) , P2 (200) ,GMTR(200) 

COMMON  /BLC7/  ETA (201 ) , DETA (201)  ,A (201) 

COMMON  /BLC8/  F  (201 , 2)  ,U  (201,  2) ,  V  <201, 2)  ,B  (201, 2) 

COMMON  /BLC9/  SI  (201)  ,S2  (201)  ,S3  (201)  ,S4  (201)  ,S5  (201)  ,S6(201)  , 

+  S7(201),S8(201),R1(201),R2(201),R3(201),R4  (201) 

integer  ntflag,ni,nx,np,nxt, is,itrans,isf,it,npt,ntr 
P1H  -  0.5  *  PI (NX) 

IF  (NX  .EQ.  1)  THEN 
CEL  -  0.0 
CELH-  0.0 
DO  5  J-1,NP 
F (J,  1)  -  0.0 
U(J,1)  -  0.0 
V(J,1)  -  0.0 
B (J, 1)  -  0.0 
5  CONTINUE 

ELSE 

CEL  -  0.5  *  (X (NX) +X (NX-1) ) / (X (NX) -X (NX-1) ) 

CELH-  0.5  *  CEL 
ENDIF 

DO  100  J-  2,NP 
C  CURRENT  STATION 

FB  -  0. 5* (F( J, 2)  +  F( J-l, 2) ) 

UB  -  0.5* (U(J,2)  +  U (J-l, 2) ) 

FVB  -  0.5*<F(J,2)*V(J,2)+F(J-1,2)*V(J-1,2)) 

VB  -  0. 5* (V (J, 2)  +  V (J-l, 2) ) 

USB  -  0.5* (U( J, 2) **2  +  U(J-1, 2) **2) 

DERBV  *  (B  ( J,  2)  *V  ( J,  2)  -  B  ( J-l,  2)  *V ( J-l,  2) ) /DETA( J-l) 

C  PREVIOUS  STATION 

CFB  -  0. 5* (F(J, 1)  ♦  F (J-l, 1) ) 

CUB  -  0. 5* (U (J, 1)  +  U( J-l, 1) ) 

CVB  -  0. 5*  (V(J,  1)  +  V(J-1, 1) ) 

CUSB  -  0. 5* (U( J, 1) **2  +  U(J-1, 1) **2) 

CFVB  =■  0.5*(F(J,1)*V(J,1)+F(J-1,1)*V(J-1,1)) 

CDERBV  -  (B  ( J,  1)  *V ( J,  1)  -  B(J-1, 1)  *V(J-1, 1) )  /  DETA (J-l) 

C  S-  COEFFICIENTS 

S1(J)  -  CELH*  (F ( J,  2)  -  CFB)  +  P1H*F(J,2)  +  B  ( J, 2) /DETA( J-l) 

S2 (J)  -  CELH* (F ( J-l, 2) -CFB)  ♦  P1H*F (J-l, 2) -B (J-l, 2) /DETA( J-l) 

S3 (J)  -  CELH* (V ( J, 2)  +  CVB)  +  P1H*V(J,2) 

S4 (J)  -  CELH* (V( J-l, 2)  ♦  CVB)  ♦  P1H*V(J-1,2) 

S5 ( J)  -  - (CEL+P2 (NX) ) *U(J, 2) 

S6  ( J)  -  -(CEL+P2(NX)  )  *U<  J-l,  2) 

C  R-  COEFFICIENTS 

IF  (NX  .EQ.  1)  THEN 

CRB  -  -P2 (NX) 

R2  ( J)  -  CRB  -  (DERBV  +  P1(NX)*FVB  -  P2(NX)*USB) 

ELSE 

CLB  -  CDERBV  +  PI (NX-1) *CFVB  -  P2 (NX-1) *CUSB  +  P2(NX-1) 

CRB  -  -CLB  -  CEL*CUSB  -  P2 (NX) 

R2 ( J)  -  CRB  -  (DERBV  +  P1(NX)*FVB-  (CEL+P2 (NX) ) *USB  +  CEL* 
♦  (FVB  +  CVB*FB  -  VB*CFB  -  CFVB)) 

ENDIF 

R1(J)  -  Ft  J-l,  2)  -  F(  J,  2)  +  DETA(J-l)  *UB 

R3(J-1)«  U (J-l, 2)  -  U (J, 2)  +  DETA (J-l) *VB 
100  CONTINUE 

C  BOUNDARY  CONDITIONS 

Rl(l)  -  0.0 

R2 (1)  -  0.0 

R3  (NP)  -  0.0 

RETURN 
END 

*++  +  **♦♦♦***++♦+***+++***+++*♦*****++***+*+*  +  ****+*  +  *♦***■****** 

***♦***+*  +  *♦  +  *  +  ****+*♦***♦*  +  +  ***+*■***+*+*  +  ****♦+*****•****+  +  +  *+♦***** 

SUBROUTINE  EDDY 
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COftfON  /BLCO /  RL, transnew(2)  ,NBL(2)  ,XCTRI  (2)  ,ntflag,NI 
COMMON  /BLC2/  NX, NXT, NP, NPT, NTR,  IT,  ISF 
COMMON  /BLC3/  X  (200)  ,UE  (200)  ,  PI  (200)  ,  P2  (200)  ,GMTR(200) 
COMMON  /BLC7/  ETA(201)  ,DETA(201)  ,A(?01) 

COMMON  /BLC8/  F(201, 2)  ,U (201, 2) ,  V(201, 2)  ,B  (201, 2) 
integer  ntflag,ni,nx,np,nxt, is, itrans, isf , it,npt,ntr 
DIMENSION  EDVK201) 

RL2  -  SQRT (RL*UE (NX) *X (NX) ! 

RL4  -  SQRT (RL2) 

RL216  -  0.16  *  RL2 

ALFA  -  0.0168 

EDVO  -  ALFA*RL2*GMTR(NX)*(U(NP,2)*ETA(NP)-F(NP,2)) 

EDVI(l)-  0.0 

YBAJ  -  RL4*SQRT(ABS(V(l,2)))/26.0 
DO  70  J-2,NP 
JJ  -  J 

YBA  -  YBAJ*ETA( J) 

EL  -1.0 

IFtYBA  .LT.  10.0)  EL  -  1.0  -  EXP(-YBA) 

EDVI(J)  -  RL216*GMTR(NX)*<F'+ETA(J>)**2  *  ABS(V(J,2)) 

IF<EDVI<J)  .GT.  EDVO)  GO  TO  90 

IF  (EDVI(J)  .LE.  EDVI(J-l))  EDVI(J)-  EDVI(J-l) 

B (J, 2)  -  1.0  +  EDVI(J) 

70  CONTINUE 
90  DO  100  J  W,NPT 
100  B (JJ, 2)  -  1.0  +  EDVO 
B (1, 2)  -  1.0 
RETURN 
END 

**  +  ************************  +  **+****‘************************', 
SUBROUTINE  OUTPUT 

COMMON  /BLCO/  RL, transnev (2) , NBL (2 ) , XCTRI (2) , ntf lag, NI 
COMMON  /BLC2/  NX, NXT, NP, NPT, NTR, IT, ISF 
COMMON  /BLC3/  X (200) . UE (200) , PI (200) , P2 (200) , GMTR (200) 
COMMON  /BLC7/  ETA(201 ) , DETA (201) , A (201) 

COMMON  /BLC8/  F (201, 2) ,U(201 , 2! , V (201, 2) , B (201 , 2) 

COMMON  /BLCS/  DLS (200) , VW (200) , CF (200) , THT (200) 

integer  ni,nx, np, nxt, is, itrans, isf , it, npt, ntr, ntf lag, nstop 

dimension  rdif f (201) , rdlow (201) 

IF (NX.EQ. 1  )  THEN 
DLS (NX) -  0.0 
THT (NX) -  0.0 
CF (NX)  -  0.0 
VW  (NX)  -  V(l,2) 
rdif flow-1000 
ns top- 0 
ELSE 

SQRX  -  SQRT (UE (NX) *X (NX) *RL) 

CF (NX)  -  2.0  *  V(l, 2)  *  B ( 1 , 2 )  /SQRX 
VW  (NX)  -  V(l,  2) 

DLS (NX)-  X (NX) /SQRX  *  (ETA(NP) -F(NP,  2) ) 

U1  -  U (1, 2)  *  (1.0  -U(l, 2) ) 

SUM  -  0.0 

DO  20  J-2,NP 

U2  -  U ( J, 2)  *  (1.0  -U ( J , 2 ) ) 

SUM  -  SUM  +  A(J)  *  (U1  +  U2) 

U1  -  U2 
20  CONTINUE 

THT (NX)-  X (NX) /SQRX  *  SUM 
rex-UE (NX) +X (NX) *RL 
rtheta-UE (NX) *THT (NX) *RL 

***  Michels' s  Criterian  (JUST  CALCULATED  **NEVER**  USED) 
rtrans-1. 174* (1.0+22400. 0/ rex) *rex+*0. 46 
rdif f (nx)-abs (rtheta-rtrans) 

if  ((NX.gt.2)  .and.  (rdlow(nx-l) .eq. rdlow (nx-2) ) )  then 
if  (rdlow(nx-2) .eq. rdlow(nx-3) )  nstop-1 
endif 

if  (ISF.eq.2)  then 

if  ( (ntflag. eq. 1)  .and.  (nstop. eq. 0) )  then 
transnew(ISF)«rex/  (RL*UE  (NX) ) 
ntflag-0 
endif 
endif 

if ( (rdiff (nx) .LT. rdif flow)  .and.  (nstop. eq. 0) )  then 
transnew(ISF)  -rex/  (RL*UE  (NX) ) 
rdif f low-rdif f (nx) 


186 


Appendix  A 


358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 


ntf lag-1 

endif 

rdlow(nx)«rdifflow 

ENDIF 

C  SHIFT  PROFILES  FOR  THE  NEXT  STATION 
ymark-. 0005 
DO  175  J-l.NPT 

if (ISF.EQ.  1)  then 

if  (U{J,  1)  .LT.  (0.995))  then 
lasty-1 

yplot-ETA< J) *SQRT (X (NX) / (RL'UE (NX) ) ) 
do  nxloop-5,NI/2-l, 5 
if (NX.EQ.nxloop)  then 

91  roarkx-NX/5 
numw»markx+30 

c  write  (numw,*)  U(J, 1) ♦markx.yplot 

write  (54,*)  U(J,  l)+markx,yplot 
if (yplot.gt. ymark)  then 
wnte(55,*)  markx, ymark 

ydif f-yplot-yplotold 
udiff«U(J,l)-U(J-l,  1) 

xvalue«U(J-l,l)+udiff* (ymark-yplotold) /ydiff 
write (55, *)  xvalue+markx, ymark 
write (55, 92) 

92  format  (/) 
ymark»ymark+.0005 

if (yplot.GT. ymark)  goto  91 
endif 
endif 
end  do 
else 

if  (lasty.EQ. 1)  then 
lasty-0 
do  m-1,2 

do  nxloop-5.NI/2-l,  5 
if (NX.EQ.nxloop)  then 
markx-NX/5 
numw-markx+30 

c  write  (numw,*)  markx, yplot 

write  (54,*)  markx.yplot 
endif 
end  do 
yplot-0 • 0 
end  do 
endif 
endif 
endif 

yplotold-yplot 
F( J, 1)  -  F(J ,2) 

U(J,1)  -  U(J, 2) 

V(J,1)  -  V  ( J,  2) 

B (J,  1)  -  B ! J, 2) 

175  CONTINUE 
RETURN 
END 


**♦*♦****♦♦**♦****♦**♦*  +  ■*****•*★*♦**♦**♦■**  *♦♦***♦***♦*★♦*♦♦*♦♦♦♦*♦♦♦♦* 
SUBROUTINE  80LV3 

COMMON  /BLC2/  NX,NXT,NP,NPT,NTR, IT, ISF 
COMMON  /BLC7/  ETA(201)  ,DETA(201)  ,A(201) 

COMMON  /BLC8/  F(201, 2) ,U(201, 2) , V (201, 2) ,B (201, 2) 

COMMON  /BLC9/  SI (201) , S2 (201) , S3 (201) , S4 (201) , S5 (201) , S6 (201) , 

+  S7  (201)  ,S8  (201)  ,R1(201),R2  (201)  ,R3(201),R4  (201) 

COMMON  /BLC6/  DELF  (201)  ,DELU  (201)  ,  DELV{201) 
integer  ntflag,ni,nx,np,nxt,is,itrans,isf ,it,npt,ntr 
DIMENSION  All (201) ,A12 (201) ,A13 (201) ,A14 (201) , 

+  A21  (201)  ,A22  (201)  ,A23  (201)  ,A24  (201) 

All  (1)-  1.0 
A12 (1) -  0.0 
A13 (1) -  0.0 
A21(D-  0.0 
A22  (1) -  1.0 
A23 (1) “  0.0 
Gil  —1.0 
G12  — A(2) 

G13  -  0.0 

G21  -  S4 (2) 

G23  — S2(2)/A(2) 
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480 

481 
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483 

484 

485 
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G22  -  G23+S6 (2) 

All (2)-  1.0 
A12(2)  — A(2)-G13 
A13 (2)»  A(2)*G13 
A21(2)-  S3  (2) 

A22  (2)  ■  S5  (2)  -G23 
A23  (2)  ■  SI  (2)  +A(2)  *G23 

R1 (2)  -  R1 (2) - (G11*R1 (1) +G12*R2 (1) +G13*R3 (1) ) 

R2(2)  -  R2 (2) - (G21*R1 (1) +G22*R2 (1) +G23*R3 (1) ) 

C  FORWARD  SWEEP 

DO  500  J-2,NP 

C  IF (DEN  .GT.  1E12)  GO  TO  11 

DEN  -  (A13 (J-l) *A21 ( J-l) -A23 (J-l) *A11 (J-l)  -A(  J)  * 

+  (A12 (J-l) *A21 (J-l) -A 22 (J-l) »A11 (J-l) ) ) 

C  11  IF(D£N1  .GT.  1E12)  GO  TO  12 

DENI  -  A22(J-1)*A(J)-A23{J-1) 

C  12  PRINT*,  'DEN, DENI-', DEN, DENI 

Gil  -  (A23 (J-l)  +A(J)  *  (A(  J) *A21 ( J-l) -A22 ( J-l) ) ) /DEN 

G12  -  -(A(J)*A(J)+G11*{A12(J-1)*A(J)-A13(J-1)))/DEN1 

G13  -  (G11*A13 (J-l) +G12*A23 (J-l) ) /A( J) 

G21  -  (S2 ( J) *A21 ( J-l) -S4 ( J) *A23 ( J-l) +A(J) * (S4 ( J) * 

+  A22(J-1)-S6(J)*A21(J-1)))/DEN 

G22  -  (-S2 ( J)  +S6  ( J)  *A(J) -G21* (At J) *A12 (J-l) -A13 ( J-l) ) ) /DENI 

G23  -  G21*A12 ( J-l) +G22*A22 ( J-l) -S6 ( J) 

All (J)“  1.0 
A12  ( J)  — A(  J)  -G13 
A13  ( J)  ■  A(J)  *G13 
A21 ( J) -  S3  (J) 

A22 ( J) “  S5 (J) -G23 
A23  ( J)  **  S1(J)+A(J)*G23 

R1 ( J)  -  R1 (J) - (G11*R1 ( J-l) +G12*R2 (J-l) +G13*R3 (J-l) ) 

R2 ( J)  -  R2 ( J) - (G21*R1 (J-l) +G22*R2 ( J-l) +G23*R3 (J-l) ) 

IF (R2 ( J)  .GT.  1E20)  THEN 
RCHK  -  R2(J) 

GO  TO  99 
END  IF 

500  CONTINUE 
C  BACKWARD  SWEEP 

DELU(NP)  -  R3(NP) 

El  -  R1 (NP) -A12 (NP) *DELU (NP) 

E2  -  R2(NP)-A22(NP)*DELU(NP) 

DELV (NP)  -  (E2*A11 (NP) -E1*A21 (NP) ) /  (A23 (NP) *A11 (NP) -A13 (NP) * 

+  A21 (NP) ) 

DELF (NP)  -  (E1-A13  (NP)  *D£LV (NP) )  /All  (NP) 

DO  600  J  -  NP-1,1,-1 

E3  -  R3 (J) -DELU (J+l)  +A(J+1)  *DELV (J+l) 

DEN2  -  A21  ( J)  *A12  ( J)  *A(  J+l)  -A21  ( J)  *A13  (J)  -A (J+l)  *A22  ( J)  * 

♦  All ( J) +A23 ( J)  *A11 ( J) 

DELV ( J)  -  (All (J) * (R2 (J)+E3*A22 (J) ) -A21 (J) *R1 (J) -E3*A21 (J) * 

+  A12 ( J) ) /DEN2 

DELU  ( J)  — A(J+1)*DELV(J)-E3 

DELF ( J)  -  (R1(J)-A12(J)*DELU(J)-A13(J)*DELV(J))/A11(J) 

600  CONTINUE 
99  DO  700  J-1,NP 

F(J,2)»  F ( J, 2)  +DELF (J) 

U(J,2)-  U( J, 2)  +DELU ( J) 

V(J,2)«  V(J, 2)  +DELV ( J) 

700  CONTINUE 

U(l,2)«  0.0 

RETURN 

END 
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APPENDIX  B 


UPOT.IN  MANE  LIST 


3 


♦ 

AIRFOIL  TYPE  :  NACA  0012 

(RAMP) 

I  FLAG 

NLCMER 

NUPPER 

0 

50 

50 

12 

IRAMP 

IOSCIL 

ALPI  ALFMAX 

RFREQ 

PIVOT 

1 

0 

0.0  30.0 

0.01 

0.25 

IGUST 

UGUST  VGUST 

0 

0. 

0. 

ITRANS 

DELHX 

DELHY  PHASE 

0 

0.00 

0.00  0.00 

CYCLE 

NTCYCLE 

TOL 

1.5 

125 

0.0001 

naot  t 

naot  X 

aoa  values  multiplied  by  10 

(integer) 

8  1,60,90,110,130,150,170,200 


Comments . . . 

I  FLAG  0:  NACA  4  or  5  digit  airfoil  (program  computes  coordinates) 

1:  User  suplies  surface  coordinates 

NLCMER:  #  panels  upper  surface 

NUPPER:  #  panels  lower  surface 

(NOTE:  Next  line  entry  is  either  a  NACA  4,5  digit 

airfoil  or  user  supplied  coordinates  (no  blanks) 

IRAMP  0:  n/a  ***  RFREQ  is  based  on  full  chord 

2:  straight  ramp  ♦**  RFREQ  -  A  -  Reduced  pitch  rate 

1:  Modified  ramp  ***  -  ac/U 

IOSCIL  0:  n/a  ***  RFREQ  is  based  on  full  chord 

1:  Sinusoidal  pitch,  motion  starts  at  min  Aoa 

***  RFEQ  -  k  «  Reduced  Frequency 
-  wc/U 

ITRANS  0:  n/a 

1:  Translational  harmonic  oscillatio 

CYCLE  :  #  of  cycles  for  oscillatory  motions 

in  case  of  ramp,  cycle-1.5  denotes  airfoil  is  held 
at  max  aoa  for  the  duration  of  .5  cycle 

NTCYCLF. :  #  of  time  steps  for  each  cycle 

CYCLE*NTCYCLE  is  limited  to  200  currently. 

NAOT:  #  of  input  aoa  for  cp  output 

-  angles  should  be  increasing  order, 

-  for  oscilatory  motions  angles  should  increase 
first  then  decrease,  decreasing  angles  are  for 
return  cycle. . 


3 


AIRFOIL  TYPE  :  SSC-A09  (SINUSOID) 


I FLAG  NLCMER  NUPPER 
1  92  92 

1.000000  .0004815 

.975084  -.001325 

.955144  -.002610 

.935204  -.004290 

.915264  -.006081 


.915264  .009046 

.935204  .006229 
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.955144  .003849 

.975084  .002288 

1.00000  .0004615 

IRAMP  IOSCIL  ALPI 

ALPMAX 

RFREQ 

PIVOT 

0  10 

20 

0.1 

0.25 

IGUST  UGUST  VGUST 

0  0.  0. 
ITRANS  DELHX  DELHY 

0  0.00  0.00 

PHASE 

0.00 

CYCLE  NTCYCLE  TOL 

1.0  160  0.0001 

naot  6  naot  X  aoa  valuas  multiplied  by  10  (integer) 

15  1, 60, 90, 110, 130, 150, 170, 200, 170, 150, 130, 110, 90,60, 1 


Comments. . . 


I  FLAG  0:  NACA  4  or  5  digit  airfoil  (program  computes  coordinates) 

1:  User  suplies  surface  coordinates 

NLCMER:  •  panels  upper  surface 
NUPPER:  6  panels  lower  surface 

(NOTE:  Next  line  entry  is  either  a  NACA  4,5  digit 

airfoil  or  user  supplied  coordinates  (no  blanks) 


IRAMP  0:  n/a 

2:  Straight  ramp 
1:  Modified  ramp 


***  RFREQ  is  based  on  full  chord 
***  RFREQ  -  A  -  Reduced  pitch  rate 
***  -  oc/U 


IOSCIL  0:  n/a  ***  RFREQ  is  based  on  full  chord 

1:  Sinusoidal  pitch,  motion  starts  at  min  Aoa 

***  RFEQ  «  k  -  Reduced  Frequency 
-  uc/V 

ITRANS  0:  n/a 

1:  Translational  harmonic  oscillatio 


CYCLE  s  I  of  cycles  for  oscillatory  motions 

in  case  of  ramp,  cycle-1. 5  denotes  airfoil  is  held 
at  max  aoa  for  the  duration  of  .5  cycle 


NTCYCLE :  •  of  time  steps  for  each  cycle 

CYCLE*NTCYCLE  is  limited  to  200  currently. 


NAOT:  •  of  input  aoa  for  qp  output 

-  angles  should  be  increasing  order, 

-  for  oscilatory  motions  angles  should  increase 
first  then  decrease,  decreasing  angles  are  for 
return  cycle.. 


B.  PROGRAM  UPOT.F  SOURCE  CODE 


1 

2 

3 

4 

5 

6 

7 

8 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  CDR  T.  Johnston 

C  August  1993 

C  PROGRAM  UPOT  (U2DIIF2,  version  2.b,  June  87) 

c  modified  by  Tuncer  feb-1993 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


UNSTEADY  MOTION  OF  A  TWO-DIMENSIONAL  AIRFOIL 

IN  INCOMPRESSIBLE  INVISCID  FLOW 

USING  PANEL  METHODS  BASED  ON  THE  HESS  t  SMITH 

THIS  VERSION  INCORPORATES  THE  FIRST  MODIFICATION 

TO  THE  ORIGINAL  U2DIIF  PROGRAM  IN  ITS  COMPUTATION  SPEEDS 

CHANGES  INCLUDE  : 

(A)  REMOVING  PARTIAL  PIVOTING  IN  GAUSSIAN  ELIMINATION 

(B)  OTHER  THAN  THE  VERY  FISRT  COMPUTATION  TIME-STEP, 

ALL  ELIMINATION  PROCESSES  ARE  DONE  ON  THE  R.H.S.  ONLY 

(C)  SIX  201*200  ARRAYS  HAVE  BEEN  SAVED 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


parameter  (nvmx-200,  npmx-201) 

COMMON  /BOD/  IFLAG,NLOWER, NUPPER, NODTOT.X (npmx+1) ,Y (npmx+1) , 
♦  COSTHE(npmx) , SINTHE(npmx) ,SS,NP1,NP2 

COMMON  /KAK/  VYW, VXW,WAXE,DT 
COMMON  /WAK2/  VYWK.VXWK 

COMMON  /SING/  Q(nwmx) ,  GAHiA,  QK(nwmx) ,  GAMK 
COMMON  /CORV/  CV(nwmx) ,XC(nwmx) ,YC(nwmx) ,nt,TD, 

>  CWX(nwmx),CWY(nvmx) 
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9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 


CCPWON  /POT/  PHI  (nwmx) , PHIK(nwmx) 

CCPWON  /GUST/  UG(nwmx) , VG(nwmx) , XGF, UGUST, VGUST 
COWON  /EXTV/  UE  (nwrnx) 

COWON  /MAINout/  ialfao(20) ,  naot,  nao 
COMMON  /CPD/  CP(200>, pivot 

common  /phase/  ta (nwrnx) ,alphaa (nwrnx) ,cla (nwmx) ,cda (nwrnx) , 

>  cma (nwrnx) ,hya (nwmx) 

DIMENSION  XXC ( nwmx ) ,YYC( nwmx) 

PI  -  3.1415926585 

open  (unit-1, file-'u.in' , form-' formatted' ) 
open  (unit-8, file-'cl.d' , form-' formatted' ) 
open  (unit-9,  file- ’ cm. d' , form- ' formatted ' ) 
open  (unit-91, file-'v.d' , form-' formatted' ) 
open  (unit-92, file-'uout .d' , form-' formatted' ) 

C.. INPUT  FROM  FILE  CODE  5  AND  SET  UP  PANEL  NODES  AND  SLOPES 
CALL  INDATA 
CALL  SETUP 
read(l,*) 

READ(1,*)  IRAMP,  IOSCIL,  ALPI , ALPHAX, FREQ, PIVOT 
read(l,*) 

READ(1,*)  IGUST,  UGUST,  VGUST 
read(l,*) 

READtl,*)  ITRANS, DELHX, DELHY, PHASE 
read(l,*) 

READd, *)  cycle, ntcycle.TOL 
readd,*) 

READ(1,*)  naot,  (ialfao(i),  i«l,naot) 
nao  -  1 

iffiramp  . gt.  0  .or.  ioscil  .gt.  0)  then 

ifliramp  .gt.  0)  print*,'  RAMP  MOTION,  IRAMP  -  '.iramp 
iffioscil  .gt.  0)  print*. 


>  »  OSCILLATORY  MOTION,  IOSCIL  -  *, ioscil 
WRITE  (6,555)  ALPI, alpmax,  FREQ, PIVOT 

555  FORMAT  (2X,  'INITIAL  ANGLE  OF  ATTACK  -'.F10.4,/, 

>  2X,  'FINAL  ANGLE  OF  ATTACK  -',F10.4,/, 

>  2X,  'REDUCED  FREQ.  FOR  OSCIL  -',F10.4,/, 

>  2X,  'PIVOT  POINT  -*,F10.4,/, 

>  2X,  •mmmmmmmmmmmmmmmmm 


dalp  -  alpmax-alpi 
tcon  -  2(pi)/k 

k  -  (w  c)  /  2  Vinf  -  (w  A)  /  alfadot 
alfadot  -  w  -  (2  u  A)  /  c 

tcon  -  2.*pi/freq 
endif 

ifdgust  .eq.  1  )  then 

WRITE  (6,558)  ugust,  vgust 

558  FORMAT  (2X,  'STREAMWISE  GUST  VELOCITY  -',F10.4,/, 


>  2X,  'PERPENDICULAR  GUST  VELOCITY  -’,F10.4,/, 


ANGLE  -  ALPI*PI/ 180 .  +  ATAN (VGUST/ (l.+UGUST) ) 

COSAng  -  COS (ANGLE) 

SINAng  -  SIN (ANGLE) 
endif 

ifdtrans  .eq.  1  )  then 

WRITE  (6,556)  DELHX, DELHY, PHASE 

556  FORMAT  (2X.  'X  AMPLITUDE  OF  TRANS  OSCILL.  -\F10.4,/, 

>  2X,  'Y  AMPLITUDE  OF  TRANS  OSCILL.  -\F10.4,/, 

>  2X,  'PHASE  OF  TRANS  OSCILL.  -\F10.4,/,t 

tcon  -  2.*pi/freq 
endif 

WRITE  (6,557)  cycle, ntcycle.TOL 

557  FORMAT  (2X,  'TOTAL  •  OF  CYCLES  »\F10.4,/, 

>  2X,  •#  of  TIME  STEPS  PER  CYCLE  -',i6  ,/, 

>  2X,  'TOLERANCE  FOR  CONVERGENCE  -’,F10.4,/, . 

dts  -  tcon/ float (ntcycle) 

**  float ()  »  Numeric  to  real 

C. STEADY  FLOW  CALCULATION  AT  ALPI 
ALPHA  -  ALPI 
WRITE  (6,1030)  ALPHA 

1030  FORMAT  (//,  •  STEADY  FLOW  SOLUTION  AT  ALPHA  -  ’,F10.6,/) 

WRITE  (6,1032) 

1032  format  (//,4x, 'I  XMID  Q(I)  GAMMA  CP(I)  UE(I)  ',/) 

IF  (ALPHA  .GT.  90.)  stop  "ALpha  .gt.  90  degres" 

COSALF  -  COS (ALPHA*PI/180. ) 

SINALF  -  SIN (ALPHA*PI/180. ) 

CALL  COFISH (SINALF, COSALF) 
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87 


88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 


CALL  I NFL  (0) 

CALL  GAUSS (1, 0, 0) 

CALL  VELDIS  (SINALF,  COSALF) 

CALL  PINTEG  (GAhMA,  Q) 

rji  t  pprcc. 

CALL  FANEM (SINALF, COSALF, cl, cd, cm 
write (6, 1031) cl, cd, cm 
1031  format  (  /, 

+  5x,*Cl  -  1 , f 10. 6, /, 

+  5x, ’Cd  -  ' ,  f 10. 6, /, 

♦  5x, 'Cm  -  ' , f 10. 6, /  )  ,  . 

if (cycle  .le.  0.  )  stop  *  Steady  solution  only" 

C. . INITIALIZATION  FOR  UNSTEADY  FLOW  CALCULATION 
HX  -  0.0 

HY  -  0.0 

HXO  -  0.0 

HYO  -  0.0 

DHX  -  0.0 

DHY  -  0.0 

UX  -  0.0 

UY  -  0.0 

ALP  -  ALPI 
DA  -  0.0 

COSDA  -  1.0 

SINDA  -  0.0 

CMEGA  -  0.0 

XGF  -  0.0 

PHA  -  PHASE*PI/180. 

VXW  -  COSALF 

VYW  -  SINALF 

GAMK  -  GAMMA 

T  -  0.0 

TOLD  -  0.0 

DT  -  DTS 

TD  -  DTS 

WRITE  (6,1051)  .  , 

1051  FORMAT  (/////  *  **♦♦***•#♦♦♦*♦**♦*♦***♦♦***•*'*♦♦***♦*****  *  r /# 

+  •  BEGIN* UNSTEADY  FLOW  SOLUTION  ****’,/, 

>  '  istep  alpha  time  nitr  cl  cd  cm'/) 

ntmax  -  min(nwmx,  int (cycle*ntcycle)  ) 

**  Tmax  for  Ramp  motion 
**  Tmax  -  tcon/ntcycle* (ntmax- 1.) 

DO  NT  -  1, ntmax 
ta(nt)  -  t 

C. .  STORE  CORE  VORTEX  COORDINATES  FOR  TIME  STEP  ADJUSTMENTS 
if  (nt  .ne.  1)  then 
DO  51  I  -  l,nt-l 
XXC(I)  -  XC(I) 

51  YYC(I)  -  YC(I) 
endif 

IF  (IRAMP  .eq.  1)  then 
C.  modified  ramp  change  in  aoa 
if  (t  .le.  tcon)  then 

DAL  -  DALP  ♦  (3 . -2. *T/TCON) * (T/TCON) **2 
ALPHA  -  ALPI  +  DAL 
COSALF  -  COS (ALPHA* PI/ 180.) 

SINALF  -  SIN (ALPHA*PI/180. ) 

DA  -  ALPHA  -  ALP 

COSDA  -  COS (DA*PI/180. ) 

SINDA  -  SIN (DA*PI/180. ) 

CMEGA  -  -  (DALP*PI/180.)  *  (6.*T/  (TCON*TCON) )  *  (1. -T/TCON) 
DHX  -  PIVOT  *  (1. -COSDA) 

DHY  -  -  PIVOT  *  SINDA 
UY  -  PIVOT  *  OMEGA 

else 

DAL  -  0.0 

ALPHA  -  ALPmax 

COSALF  -  COS (ALPHA* PI/ 180.) 

SINALF  -  SIN (ALPHA*PI/180 . ) 

DA  -  0.0 

COSDA  -  1.0 
SINDA  -  0.0 
CMEGA  -  0.0 
DHX  -  0.0 
DHY  -  0.0 
UY  -  0.0 

endif 
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165 

ELSEIF 

(IRAMP  .aq.  2)  then 

166 

C. straight  ramp  change  in  aoa 

161 

if  (t 

. le.  tcon)  then 

168 

alpha 

«  alpi  ♦  dalp/tcon*t 

169 

COSALF 

-  COS (ALPHA*PI/180 . ) 

no 

SINALF 

-  SIN (ALPHA*PI/180. ' 

m 

DA 

-  ALPHA  -  ALP 

172 

COS  DA 

-  COS(DA*PI/180.) 

173 

SI  NBA 

-  SIN (DA*PI/180 . ) 

174 

OMEGA 

-  -  dalp/tcon* (pi/180. ) 

175 

DHX 

-  PIVOT  *  (1. -COSDA) 

176 

MY 

-  -  PIVOT  *  SINDA 

177 

UY 

-  PIVOT  *  OMEGA 

178 

•lse 

179 

DAL 

-  0.0 

180 

ALPHA 

-  ALPmax 

181 

COSALF 

-  COS (ALPHA* PI/ 180.) 

182 

SINALF 

-  SIN (ALPHA*PI/180. ) 

183 

DA 

-  0.0 

184 

COSDA 

-  1.0 

185 

SINDA 

-  0.0 

186 

OMEGA 

-  0.0 

187 

DHX 

-  0.0 

188 

DHY 

-  0.0 

189 

UY 

-  0.0 

190 

endif 

191 

ELSE IF 

(Ioscil  .eq.  1)  then 

192 

C.  .rotational 

harmonic  oscillation 

193 

c  DAL 

-  DALP*SIN (FR£Q*T) 

194 

c  OMEGA  -  -  (DALP*PI/180.)  *  FREQ  *  COS (FREQ*' 

195 

c  ALPHA  -  ALPI  +  DAL 

196 

alpha  •  alpi  +  0.5*dalp* (1.-  cos(freq*t)  ) 

197 

omega  -  -  0. 5* (dalp*pi/180 . ) *f req*sin (f req’ 

198 

COSALF 

-  COS (ALPHA*PI/ 180 . ) 

199 

SINALF 

-  SIN(ALPHA*PI/180. ) 

200 

DA 

-  ALPHA  -  ALP 

201 

COSDA 

-  COS (DA*PI/180. ) 

202 

SINDA 

-  SIN (DA* PI/ 180. ) 

203 

UY 

-  PIVOT  *  OMEGA 

204 

DHX 

-  PIVOT  *  (1. -COSDA) 

205 

MY 

-  -  PIVOT  *  SINDA 

206 

ELSEIF 

(Igust  .eq.  1)  then 

207 

C. .sharp  edge  gust  (ugust  and/or  vgust) 

208 

XGF 

-  T 

209 

do  no 

IG  -  1 , NODTOT 

210 

UG(IG) 

-  0.0 

211 

VG(IG) 

-  0.0 

212 

XG 

-  X (IG) ‘COSALF  +  Y (IG) *SINALF 

213 

XGP1 

-  X (IG+1) *COSALF  +  Y (IG+1) ‘SINALF 

214 

IF  (IG 

.LT.  NLCfWER+1)  GO  TO  120 

215 

IF  (XGF 

.LE.  XG)  GO  TO  110 

216 

IF  (XGF 

.GE.  XGP1)  GO  TO  111 

217 

FAC 

-  (XGF  -  XG) / (XGP1  -  XG) 

218 

UG  (IG) 

-  UGUST*FAC 

219 

VG(IG) 

-  VGUST* FAC 

220 

GO  TO  110 

221 

111  UG(IG)  -  UGUST 

222 

VG  (IG) 

-  VGUST 

223 

GO  TO  no 

224 

120  IF  (XGF  .LE.  XGP1)  GO  TO  110 

225 

IF  (XGF 

.GE.  XG)  GO  TO  121 

226 

FAC 

-  (XGF  -  XGP1) / (XG  -  XGP1) 

227 

UG(IG) 

-  UGUST*  FAC 

228 

VG(IG) 

-  VGUST* FAC 

229 

GO  TO  no 

230 

121  UG(IG)  -  UGUST 

231 

VG  (IG) 

-  VGUST 

232 

110  CONTINUE 

233 

IF  (XGF 

.LE.  COSALF)  MGUST  -  nt 

234 

ENDIF 

235 

alphaa(nt)  -  alpha 

236 

if  (Itrans  .eq.  1)  then 

237 

C. .translation  harmonic  oscillation 

238 

HX 

-  DELHX  *  SIN(FREQ*T  +  PHA) 

239 

HY 

-  DELHY  *  SIN(FREQ*T) 

240 

c  HX 

—DELHX  *  COS(  FREQ* T  +  PHA) 

241 

c  HY 

—DELHY  *  COS  (FREQ*T) 

242 

DHX 

-  HX  -  HXO 
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243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 


DHY  «  HY  -  HYO 

UX  -  DELHX*FREQ*COS (FREQ*T+PHA) 

UY  -  DELHY*  FREQ*  COS  ( FREQ'T ) 

c  UX  DELHX*  FREQ*  SIN  (FR£Q*T+PHAi 

c  UY  DELHY*FREQ*SIN  (FREQ’T) 

hya(nt)  »  hy 
endif 

C.. TRANSFORM  CORE  VORTEX  COORDINATES  W.  R.  T.  NEW  AIRFOIL  POSITION 
IF  (nt  .ne.  1)  then 
DO  90  I  -  l,nt-l 

XCU)  -  XXC(I)  +  CWX(I)  *  DT 

YC(I)  -  YYC(I)  +  CWY(I)  *  DT 

XCO  -  XCU) 

YCO  -  YC(I) 

XCU)  -  XCO*COSDA  -  YCO*SINDA  +  DHX 
90  YC(I)  -  XCO*SINDA  +  YCO*COSDA  +  DHY 
endif 

C. .CALCULATE  THE  TRAILING  EDGE  WAKE  ELEMENT 
NITR  -  0 

10  WAKE  -  SQRT  (VYW*VYW+VXW*VXW)  *DT 

THENP1  -  ATAN2(VYW,VXW) 

COSTHE (NP1 )  -  COS (THENP1) 

SINTHE (NP1)  -  SIN(THENPl) 

X (NP2)  -  X(NP1)  *  WAKE*COSTHE (NP1) 

Y (NP2)  -  Y(NP1)  +  WAKE*SINTHE (NP1) 

CALL  I NFL  (NITR) 

CALL  COEF  (SINALF,  COSALF, OMEGA, UX.UY, NITR) 

CALL  GAUSS ( 2, nt, NITR) 

CALL  KUTTA  (ALPHA, SINALF, COSALF,  OMEGA,  UX,  UY) 

CALL  TEWAK  (SINALF, COSALF) 

TOL1  -  ABS (VYW  -  VYWK) 

TOL2  -  ABS (VXW  -  VXWK) 

IF  ( (TOL1  .LT.  TOL)  .AND.  (TOL2  .LT.  TOL) )  GO  TO  20 
VYW  -  VYWK 

VXW  -  VXWK 

NITR  -  NITR  +  1 
GO  TO  10 
20  continue 

CALL  PRESS  (SINALF, COSALF,  OMEGA, UX, UY, ALPHA) 

CALL  PI NTEG ( GAMK, QK ) 
if(  igust  .eq.  1)  then 

CALL  FANEM!SINAng,COSAng,cl,cd,cm) 

OXSG 

CALL  FANDM (SINALF, COSALF, cl, cd, cm) 
endif 

cla(nt)  •  cl 
cda(nt)  -  cd 
cma(nt)  -  cm 

ttt  -  ( (nt-1. ) *dts) / ! (ntmax-1. )*dts) 

IF  (IRAMP  .GT.  0)  THEN 

write (6, 1011)  nt,  alpha,  ttt+.125,  nitr,  cl,cd,cm 
write (92, 1011)  nt,  alpha,  ttt+.125,  nitr,  cl,cd,cm 
ELSE 

write (6, 1011)  nt,  alpha,  ttt,  nitr,  cl,cd,cm 
write(92, 1011)  nt,  alpha,  ttt,  nitr,  cl,cd,cm 
ENDIF 

1011  FORMAT (  i4,  2x,  f7.4,  2x,  f9.6,  3x,  i2,  3x,  3fl0.6  ) 
write(8, • (2fl0.5) ')  alpha,  cl 
write (9, ' (2fl0. 5) ' )  alpha,  cm 
C.  .WAKE  ELEMENT  LEAVES  TRAILING  EDGE  AS  A  CORE-VORTEX 
CV (nt)  -  SS* (GAMMA-GAMK) 

XC (nt)  -  X(NP1)  +  0 . 5*WAKE*COSTHE (NP1) 

YC(nt)  -  Y(NP1)  +  0. 5*WAKE*SINTHE (NP1) 

CWX(nt)  -  VXW 

CWY(nt)  -  VYW 

CALL  CORVOR  (SINALF, COSALF) 

C.  .RE-INITIALISE  PARAMETERS  FOR  NEXT  TIME  STEP  CALCULATION 
DO  30  I  -  1, NODTOT 

Q(I)  -  QK(I) 

PHI (I)  -  PHIK(I) 

30  CONTINUE 

GAMMA  -  GAMK 

ALP  -  ALPHA 

HXO  -  HX 

HYO  -  HY 

TOLD  -  T 

DT  -  TD 

T  ■*  T  +  TD 
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364 

365 

366 

367 
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369 

370 

371 

372 

373 

374 

375 
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377 
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380 

381 
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ENDDO 

iflioscil  .eq.  1  .or.  itrans  .eq.  1  ) 

>  call  PHAZ (ntmax, ntcycle, freq, itrans, alpl) 

STOP  "  normal  stop  " 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C  SUBROUTINE  BODY (Z, SIGN,  X,  Y)  C 
C  RETURN  COORDINATES  OF  POINT  ON  THE  BODY  SURFACE  C 
C  C 
C  Z  -  NODE-SPACING  PARAMETER  C 
C  X, Y  -  CARTESIAN  COORDINATES  C 
C  SIGN  -  +1.  FOR  UPPER  SURFACE  C 
C  -1.  FOR  LOWER  SURFACE  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCr-CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  BODY {Z, SIGN, X, Y) 

COMMON  /PAR/  NACA, TAU, EPSMAX, PTMAX 
IF  (SIGN  .LT.  0.0)  Z  -  1.  -  Z 
CALL  NACA45(Z, THICK, CAMBER, BETA) 

X  -  Z  -  SIGN*THICK*SIN(BETA) 

Y  -  CAMBER  +  SIGN*THICK*COS (BETA) 

RETURN 

END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C  SUBROUTINE  COEF  (SINALF, COSALF,  OMEGA, UX,UY,NITR)  C 
C  C 
C  SET  COEFFICIENTS  OF  N  EQUS  ARISING  FROM  FLOW  C 
C  TANGENCY  CONDITIONS  AT  MID  POINTS  OF  PANELS  C 
C  SOLVING  THE  N-SOURCE  STRENGTHS  IN  TERMS  OF  THE  C 
C  VORTICITY  STRENGTH  (RESULTING  IN  2  RHS)  C 
C  KUTTA  CONDITION  IS  SATISFIED  SEPARATELY  TO  OBTAIN  C 
C  THE  VORTICITY  STRENGTH  C 
C  THIS  SOLUTION  METHOD  IS  DESIRED  FOR  UNSTEADY  FLOW  C 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  COEF  (SINALF, COSALF, OMEGA, UX,UY,NITR) 

COMMON  /BOD/  IFLAG, NLCWER, NUPPER, NODTOT, X (202 ), Y (202) , 

+  COSTHE (201) , SINTHE (201) ,SS,NP1,NP2 

COMMON  /COF/  A(201, 211) , NEQS 
COMMON  /SING/  Q (200! , GAMMA, QK(200)  , GAMK 
COMMON  /WAK/  VYW, VXW, WAKE , DT 

COMMON  /CORV/  CV (200) , XC (200) , YC (200) ,M, TD, CCVX (200) ,CCVY (200) 
COMMON  /INF1/  AAN(201, 201)  ,BBN(201, 201)  ,AYNP1 (201) , BYNP1 (201) 
COMMON  /INF2/  SUMCCN (201) , SUMCCT (201) ,  CYNP1 (200) , CXNP1 (200) 

COMMON  /GUST/  UG (200) , VG (200) ,XGF, UGUST, VGUST 
NEQS  -  NODTOT 

NP1  -  NODTOT  +  1 

NP2  -  NODTOT  +  2 

C  INITIALISE  COEFFICIENTS 

IF  (<M  .GT.  1)  -OR.  (NITR  .GT.  0))  GO  TO  91 
DO  90  I  -  1, NODTOT 

DO  90  J  -  1, NP2 

90  A (I , J)  -  0.0 

91  CONTINUE 

C  SET  LHS  MATRIX  A(I,J) 

DO  120  I  -  1, NODTOT 

XMID  -  0.5  *  (X (I >  +  X(I+1) ) 

YMID  -  0.5  *  (Y(I)  +  Y(I  +  D) 

B  -  0.0 

DO  110  J  -  1, NODTOT 

IF  ( (M  .EQ.  1)  .AND.  (NITR  .EQ.  0))  A(I,J)  «AAN(I,J) 

B  -  B  +  BBN(I,J) 

110  CONTINUE 

C  FILL  IN  THE  RIGHT  HAND  SIDE 

A(I,NP1)  -  -B  +  BBI.  (I,NP1)  *SS/WAKE 
A(I,NP2)  -  -BBN  (I,NP1)  *GAMMA*SS/WAKE 
+  +  SINTHE  (I)  *  ( (l.+UGU)  )*COSALF-VG(I)*SINALF+UX) 

+  -  COSTHE ( I ) *  ( (l.+UG(I) )*SINALF+VG(I)«COSALF+UY) 

+  +  CMEGAM YMID* SINTHE  (I)  +  XMID*COSTHE  (I) ) 

C  ADD  CORE  VORTEX  CONTRIBUTION 

IF  (M  .EQ.  1)  GOTO  140 
A(I,NP2)  -  A(I,NP2)  -  SUMCCN ( I ) 

140  CONTINUE 

120  CONTINUE 

RETURN 
END 


C  SUBROUTINE  COFISH (SINALF, COSALF)  C 
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399 

C 

SET  COEFFICIENTS  OF  LINEAR  SYSTEM  -  N+l  EQUATIONS 

C 

400 

c 

N  EQUS  -  FLOW  TANGENCY  AT  KID  POINTS  OF  PANELS 

C 

401 

c 

1  EQU  -  KATTA  CONDITION  AT  TRAILING  EDGE  PANELS 

C 

402 

c 

THIS  SOLUTION  METHOD  IS  EFFECTIVE  FOR  STEADY  FLOW,  NO 

c 

403 

c 

ITERATION  IS  REQUIRED,  N-SOURCE  STRENGTHS  AND  1 

c 

404 

c 

VORTICITY  STRENGTH  ARE  SOLVED  SIMULTANEOUSLY 

c 

405 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  I 

406 

SUBROUTINE  COFISH (SINALF,  COSALF) 

407 

COMMON  /BOD/  IFLAG,NLOWER,NUPPER,NODTOT,X (202) ,  Y (202) , 

408 

+  COSTHE (201) , SINTHE (201) ,SS,NP1,NP2 

409 

COMMON  /COF/  A(201, 211) ,KUTTA 

410 

COMMON  /NUM/  PI,PI2INV 

411 

KUTTA  -  NODTOT  +  1 

412 

c 

INITIALISE  COEFFICIENTS 

413 

DO  90  J  -  1, KUTTA 

414 

90 

AIKUTTA, J)  -  0.0 

415 

c 

SET  VN  -  0  AT  MID-POINT  OF  I-TH  PANEL 

416 

DO  120  I  -  1, NODTOT 

417 

XMID  -  .  5*  (X  (I)  +  X  (1+1) ) 

418 

YMID  -  . 5*  (Y (I)  +  Y(I  +  1) ) 

419 

A(I, KUTTA)  -  0.0 

420 

c 

FIND  CONTRIBUTION  OF  J-TH  PANEL 

421 

DO  110  J  -  1, NODTOT 

422 

FLOG  -  0.0 

423 

FT AN  -  PI 

424 

IF  (J  .EQ.  I)  GO  TO  100 

425 

DXJ  -  XMID  -  X  ( J) 

426 

DXJP  -  XMID  -  X(J+1) 

427 

DYJ  -  YMID  -  Y ( J) 

428 

DYJP  -  YMID  -  Y ( J+l) 

429 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP‘DYJP) / (DXJ*DXJ+DYJ‘DYJ) ) 

430 

FTAN  -  ATAN2(DYJP*DXJ-DXJP‘DYJ,DXJP‘DXJ+DYJP*DYJ) 

431 

100 

CTIMTJ  -  COSTHE  (I)  *COSTHE(J)  +  SINTHE  (I)  *SINTHE  (J) 

432 

STIMTJ  -  SINTHE (I) ‘COSTHE (J)  -  COSTHE (I) *SINTHE (J) 

433 

A(I, J)  -  PI2INV* (FTAN* CTIMTJ  +  FLOG* STIMTJ) 

434 

B  -  PI2INV* (FLOG* CTIMTJ  -  FTAN*STIMTJ) 

435 

A(I, KUTTA)  -  A(I, KUTTA)  +  B 

436 

IF  ((I  .GT.  1)  .AND.  <1  .LT.  NODTOT))GOTO  110 

437 

c 

IF  I-TH  PANEL  TOUCHES  TRAILING  EDGE, 

438 

c 

ADD  CONTRIBUTION  TO  KUTTA  CONDITION 

439 

A (KUTTA, J)  -  A (KUTTA, J)  -  B 

440 

A (KUTTA, KUTTA)  -  A (KUTTA, KUTTA)  +  A(I,J) 

441 

no 

CONTINUE 

442 

c 

FILL  IN  KNOWN  SIDES 

443 

A ( I , KUTTA+ 1 )  -  SINTHE (I) ‘COSALF  -  COSTHE (I) ‘SINALF 

444 

120 

CONTINUE 

445 

A(KUTTA, KUTTA+1)  -  -  (COSTHE(l)  +  COSTHE (NODTOT) ) ‘COSALF 

446 

+  -  (SINTHE (1)  +  SINTHE (NODTOT) ! ‘SINALF 

447 

RETURN 

448 

END 

449 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

450 

c 

SUBROUTINE  CORVOR  (SINALF, COSALF) 

c 

451 

c 

COMPUTE  THE  LOCAL  VELOCITIES  OF  CORE  VORTICES 

c 

452 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

453 

SUBROUTINE  CORVOR  (SINALF, COSALF) 

454 

COMMON  /BOD/  IFLAG, NLOWER, NUPPER,  NODTOT, X (202)  ,Y (202) , 

455 

+  COSTHE (201), SINTHE (201)  ,SS,NP1,NP2 

456 

COMMON  /SING/  Q (200) , GAMMA, QK (200) , GAMK 

457 

COMMON  /WAX/  VYW, VXW, WAKE, DT 

458 

COMMON  /CORV/  CV (200) ,XC (200) , YC (200) ,M,TD,CCVX (200) ,CCVY (200) 

459 

COMMON  /POT/  PHI (200) , PHIK(200) 

460 

COMMON  /GUST/  UG(200) ,VG(200) ,XGF,UGUST,VGUST 

461 

COMMON  /NUM/  PI,PI2INV 

462 

IF  (M.EQ.l)  GOTO  40 

463 

MM1  -  M  -  1 

464 

c 

VELOCITY  COMPONENTS  OF  CORE  VORTICES  AT  CURRENT  TIME  STEP 

465 

UGC  -  0.0 

466 

VGC  -  0.0 

467 

DO  10  N  -  1.MM1 

468 

XG  -  XC(N)  ‘COSALF  +  YC(N) ‘SINALF 

469 

IF  (XG  .GT.  XGF)  GO  TO  5 

470 

UGC  -  UGUST 

471 

VGC  -  VGUST 

472 

5 

CONTINUE 

473 

VY  -  (l.+UGC) *SINALF+VGC*COSALF 

474 

VX  -  (l.+UGC) *COSALF-VGC*SINALF 

475 

XMID  -  XC (N) 

476 

YMID  -  YC (N) 
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477 

476 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 
49C 
491 
4  92 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 
54  6 

547 

548 

549 

550 

551 

552 

553 

554 


SUMAMY  -  0.0 
SUMBMY  -  0.0 

C  AMY (N,  J)  :  Y  -  VELOCITY  INDUCED  AT  N-TH  CORE  VORTEX  BY  UNIT 

C  STRENGTH  DISTRIBUTED  SOURCE  ON  THE  J-TH  PANEL 

C  BMY (N, J)  :  Y  -  VELOCITY  INDUCED  AT  N-TH  CORE  VORTEX  BY  UNIT 

C  STRENGTH  DISTRIBUTED  VORTEX  ON  THE  J-TH  PANEL 

DO  20  J  -  1, NP1 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y <  J) 

DYJP  -  YMID  -  Y (J+l) 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

AMY  -  PI2INV* (FTAN’COSTHE (J)  -  FLOG»SINTHE ( J) ) 

BMY  -  PI2INV* (FLOG*COSTHE ( J)  ♦  FTAN’SINTKE ( J) ) 

IF  (J.EQ.NP1)  GOTO  20 
SUMAMY  -  SUMAMY  +  AMY 
SUMBMY  -  SUMBMY  +  BMY 
VY  -  VY  +  AMY*QK (J) 

VX  -  VX  -  BKY*QK(J) 

20  CONTINUE 

VY  -  VY  +  SUMBMY*GAMK  +  SS*BMY* (GAMMA-GAMK) /WAKE 

VX  -  VX  +  SUMAMY-GAMK  +  SS*AMY*  (GAMMA-GAMK) /WAKE 

C  ADD  CORE  VORTEX  CONTRIBUTION 

C 

C  CMY(N.MC)  :  Y  -  VELOCITY  INDUCED  AT  N-TH  CORE  VORTEX  BY  UNIT 
C  STRENGTH  MC-TH  CORE  VORTEX  OTHER  THAN  ITSELF 

C 

C  CMX(N.MC)  s  X  -  VELOCITY  INDUCED  AT  N-TH  CORE  VORTEX  BY  UNIT 
C  STRENGTH  MC-TH  CORE  VORTEX  OTHER  THAN  ITSELF 

DO  30  MC  -  1,MM1 
IF  (MC.EQ.N)  GOTO  30 
DX  -  XMID  -  XC (MC) 

DY  -  YMID  -  YC(MC) 

DIST2  -  DX*DX+DY*DY 

CMY  -  -PI2INV*DX/DIST2 

CMX  -  +PI2INV*DY/DIST2 

VY  -  VY  +  CMY*CV(MC) 

VX  -  VX  +  CMX*CV (MC) 

30  CONTINUE 

C  COORDINATES  OF  CORE  VORTICES  AT  NEXT  TIME  STEP 

CCVX(N)  -  VX 
CCVY(N)  -  VY 
10  CONTINUE 

40  CONTINUE 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  FANEM 

C  INTEGRATE  PRESSURE  DISTRIBUTION  BY  TRAPEZOIDAL  RULE  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  FANEM (SINALF, COSALF, cl , cd, cm) 

COMMON  / BOD/  IFLAG, NLCMER, NUPPER, NODTOT, X (202) , Y (202) , 

+  COSTHE (201) , SINTHE (201) , SS,  NP1,NP2 

COMMON  /CPD/  CP(200) .pivot 
CFX  -  0.0 

CFY  -  0.0 

CM  -  0.0 

DO  100  I  -  1, NODTOT 

c.. moment  coeff  is  computed  around  pivot  point 
XMID  -  . 5*  (X (I)  +  X(I  +  1) )  -  pivot 

YMID  -  .5*  (Y (I)  +  Y(I  +  1) ) 

DX  -  X(I  +  1)  -  X (I ) 

DY  -  Y (1+1)  -  Y(I) 

CFX  -  CFX  +  CP  (I)  *DY 

CFY  -  CFY  -  CP  (I )  *DX 

CM  -  CM  +  CP (I) * (DX*XMID  +  DY‘YMID) 

100  CONTINUE 

CD  -  CFX*COSALF  *  CFY*SINALF 

CL  -  CFY'COSALF  -  CFX*SINALF 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  GAUSS (NRHS.M, NITR) 

C  SOLUTION  OF  LINEAR  ALGEBRAIC  SYSTEM  BY 

C  GAUSS  ELIMINATION  WITHOUT  PARTIAL  PIVOTING 

C  (A)  -  COEFFICIENT  MATRIX 

C  NEQNS  -  NUMBER  OF  EQUATIONS 
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C  NRHS  -  NUMBER  OF  RIGHT  HAND  SIDES  C 

C  RIGHT-HAND  SIDES  AND  SOLUTIONS  STORED  IN  C 

C  COLUMNS  NEQNS+1  THRU  NEQNS+NRHS  OF  {A)  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  GAUSS! NRHS, M,NITR) 


COMMON  /COF/  A(201, 211), NEQNS 


C 

C 


150 


160 


180 

170 


NP 
NTOT 
IF 


DO  150 
IM 


DO  150 

R 

DO  150 
A(J  ,K) 


0))  GO  TO  160 


NEONS  +  1 
NEQNS  +  NRHS 

((M  .GT.  1)  .OR.  INITR  .GT. 

GAUSS  REDUCTION 
I  -  2, NEQNS 

-  I  -  1 

ELIMINATE  (I-l)TH  UNKNOWN  FROM 
ITH  THRU  (NEQNS) TH  EQUATIONS 
J  -  I, NEQNS 

-  A(J,IM)/A(IM,IM) 

K  -  I, NTOT 

-  A(  J,K)  -  R*A(IM,K) 

GO  TO  170 

GAUSSIAN  ELIMINATION  ON  ONLY  THE  RIGHT-HAND-SIDES 
I  -  2, NEQNS 

-  I  -  1 
J  -  I, NEQNS 

-  A(J,IM)/A(IM,IM) 

K  -  NP, NTOT 

A{J,K)  -  R*A(IM,K) 


DO  180 
IM 

DO  180 
R 

DO  180  : 

A(J,K) 

CONTINUE 

BACK  SUBSTITUTION 
DO  220  K  -  NP,  NTOT 

A  (NEQNS,  K)  -  A  (NEQNS,  K) /A  (NEQNS,  NEQNS) 


200 

210 

220 


2,  NEQNS 
NEQNS  +  1  -  L 
I  +  1 

-  IP,  NEQNS 

A(I,K)  -  A(I,J)*A(J,K) 
A(I,K)/A(I,I) 


DO  210 
I 

IP 

DO  200  J 
A(I,K)  - 
A(I,K)  - 
CONTINUE 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  INDATA  C 

C  SET  PARAMETERS  OF  BODY  SHAPE  C 

C  FLOW  SITUATION,  AND  NODE  DISTRIBUTION  C 

C  USER  MUST  INPUT  C 

C  NLOWER  -  NUMBER  OF  NODES  ON  LOWER  SURFACE  C 

C  NUPPER  -  NUMBER  OF  NODES  ON  UPPER  SURFACE  C 

C  PLUS  DATA  ON  BODY  AND  SUBROUTINE  BODY  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  INDATA 
DIMENSION  TITLE (20) 

COMMON  /BOD/  IFLAG, NLCWER, NUPPER, NODTOT,X (202) ,  Y (202) , 

+  COSTHE(201) ,SINTHE(201),SS,NP1,NP2 

COMMON  /PAR/  NACA, TAU, EPSMAX, PTMAX 
READ  (1,*)  ITITLE 
C  WRITE  (6,*)  ITITLE 

DO  10  I  -  1, ITITLE 
READ  (1,502)  TITLE 
10  WRITE  (6,503)  TITLE 

501  FORMAT  (315) 

502  FORMAT (20A4) 

503  FORMAT (IX, 20A4 ) 
readfl,*) 

READ  (1,*)  IFLAG, NLOWER, NUPPER 
WRITE  (6,558)  IFLAG, NLCWER, NUPPER 
558  FORMAT  (/// 2X,  '  ' ,  / , 

1  2X,  'IFLAG  ( 0 : NACA,  1:INPUT)  ,15,/, 

2  2X,  'NO.  PANELS  UPPER  SURFACE  -'  ,15,/, 

3  2X,  | NO.  PANELS  LOWER  SURFACE  -'  ,15,/, 

IF  (IFLAG  '.NE.  0)  RETURN 
read(l,*) 

READ  (1,*)  NACA 
C  WRITE  (6,501)  NACA 
IEPS  -  NACA/ 1000 
I PTMAX  -  NACA/ 100  -  10*IFPS 
ITAU  -  NACA  -  1000*IEPS  - 
EPSMAX  -  IEPS* 0.01 
PTMAX  -  I PTMAX* 0. 1 


100*IPTMAX 
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633 

634 

635 

636 
631 
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640 

641 
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644 
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647 
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649 
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654 
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665 
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667 

668 

669 
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673 

674 
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676 
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678 

679 

680 
681 
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683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 


TAU  -  ITAU*0.01 

IF  (IEPS  .LT.  10)  RETURN 

PTMAX  -  0.2025 

EPSMAX  -  2. 6595* PTMAX** 3 

RETURN 

END 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  SUBROUTINE  I NFL  (NITR) 

C  CALCULATE  INFLUENCE  COEFFICIENTS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  I NFL  (NITR) 

COMMON  /BOD/  IFLAG,NLOWER, NUPPER, NODTOT, X (202) , Y (202) , 

♦  COSTHE  (201) ,  SINTHE  (201) ,  SS,NP1,NP2 
COMMON  /NUM/  PI, PI2INV 

COMMON  /HAK/  VYW, VXW,KAKE, DT 

CCM40N  /CORV/  CV (200) , XC (200) , YC (200) ,M,TD,CCVX (200) ,  CCVY (200) 
C0M40N  /INF1/  AAN(201, 201) , BBN(201, 201) ,AYNP1 (201) ,BYNP1 (201) 
COMMON  /INF2/  SUMCCN (201 ) , SUMCCT (201) , CYNP1 (200) ,CXNP1  (200) 

COMMON  /PINTG/AANP (201, 201,  6)  ,BBNP{201,201,6) 

DIMENSION  PLOC (6) 

DATA  PLOC/. 03376524, .16939531,. 38069041, 

♦  .61930959, .83060469, .96623476/ 

JBEG  -  NP1 

IF  {{M  .GT.  1)  .OR.  (NITR  .GT.  0))  GO  TO  510 
JBEG  -  1 

C  AAN (I, J)  :  NORMAL  VELOCITY  INDUCED  AT  MID-POINT  OF  I-TH  PANEL 
C  BY  UNIT  STRENGTH  DISTRIBUTED  SOURCE  ON  THE  J-TH  PANEL 

C  BBN (I, J)  :  NORMAL  VELOCITY  INDUCED  AT  MID-POINT  OF  I-TH  PANEL 
C  BY  UNIT  STRENGTH  DISTRIBUTED  VORTEX  ON  THE  J-TH  PANEL 

DO  120  I  -  1,  NODTOT 
XMID  -  .5*  (X(I)  +  X(I+1) ) 

YMID  -  . 5*  (Y(I)  +  Y (1  +  1)  ) 

DO  110  J  -  1, NODTOT 
FLOG  -  0.0 

FT  AN  -  PI 

IF  (J  .EQ.  I)  GO  TO  100 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y ( J) 

DYJP  -  YMID  -  Y ( J+l) 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 

100  CTIMTJ  -  COSTHE (I )*COSTHE (J)  +  SINTHE (I) *SINTHE (J) 

STIMTJ  -  SINTHE (I) *COSTHE(J)  -  COSTHE (I) ‘SINTHE (J) 

AAN (I , J)  -  PI2INV* (FTAN*CTIMTJ  +  FLOG* STIMTJ! 

BBN (I, J)  -  PI 2 INV*  < FLOG* CTIMTJ  -  FTAN*STIMTJ) 

110  CONTINUE 
120  CONTINUE 
510  CONTINUE 
C  BEG  COEFF  POT  INTEGR 

DO  122  I  -  1, NODTOT 
DO  122  K  -  1,6 

XMID  -  X(I)  +  PLOC(K)  *  (X(I+1)  — X ( I ) ) 

YMID  -  Y(I)  +  PLOC (K) *(Y(I+1)-Y(D) 

DO  122  J  -  JBEG,NP1 
DXJ  «  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y ( J) 

DYJP  -  YMID  -  Y (J+l) 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 

CTIMTJ  -  COSTHE (I) ‘COSTHE (J)  +  SINTHE (I) *SINTHE (J) 

STIMTJ  -  SINTHE (I) *COSTHE(J)  -  COSTHE (I) ‘SINTHE (J) 

IF  (I  .EQ.  J)  FTAN  -  PI 

AANP (I, J,K)  -  PI 2 INV* (FTAN* CTIMTJ  +  FLOG* STIMTJ) 

122  BBNPd,  J,K!  -  PI 2 INV*  (FLOG* CTIMTJ  -  FTAN* STIMTJ) 

C  END  COEFF  POT  INTEGR 
I  -  NP1 

XMID  -  .  5*  (X  (I)  +  X(I+D) 

YMID  -  . 5* (Y (I)  +  Y (1+1) ) 

DO  130  J  -  1,NP1 
FLOG  -  0.0 

FTAN  -  PI 

IF  (J  .EQ.  I)  GO  TO  135 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y ( J) 

DYJP  -  YMID  -  Y (J+l) 
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FLOG  -  . 5*ALOG( (DXJP*DKJP4DYJP*DYJP) / (DXJ*DKJ4DYJ*DYJ) ) 

FT  AN  -  ATAN2<DYJP*DXJ-D0CJP*DYJ,t8CJP*DKJ4DYJP*DYJ) 

135  CTIMTJ  -  COSTHE (I) ‘COSTHE ( J)  ♦  SXNTHE(X) *SINTHE (J) 

STIMTJ  -  SINTHE (I ) ‘COSTHE ( J)  -  COSTHE (I) ‘SINTHE (J) 

AAN(I,J)  -  PI2INV* (FTAN*CTIMTJ  ♦  FLOG*STIMTJ) 

BBN(I,  J)  -  PI2INV- (FLOG ‘CTIMTJ  -  FTAN‘STIMTJ) 

C  AYNPl(J)  :  Y  -  VELOCITY  INDUCED  AT  MID  POINT  OF  WAKE  ELEMENT 
C  (NP1-TH  PANEL)  BY  UNIT  STRENGTH  DISTRIBUTED  SOURCE 

C  ON  J-TH  PANEL 

C  BYNP1 ( J)  :  Y  -  VELOCITY  INDUCED  AT  MID  POINT  OF  WAKE  ELEMENT 
C  (NP1-TH  PANEL)  BY  UNIT  STRENGTH  DISTRIBUTED  VORTEX 

C  ON  J-TH  PANEL 

AYNPl(J)  -  PI2INV* (FT AN* COSTHE (J)  -  FLOG*SINTHE < J) ) 

BYNP1 { J)  -  PI2INV* (FLOG*COSTHE ( J)  ♦  FTAN* SINTHE (J) ) 

130  CONTINUE 

DO  140  I  -  1 , NODTOT 
XMID  -  .5*  (X(I)  +  XU+1)) 

YMID  -  .5*  (Y (I)  4  Y(I  +  1)) 

J  -  NP1 

DXJ  -  XMID  -  X{J) 

DXJP  -  XMID  -  X(j4l) 

DYJ  -  YMID  -  Y(J) 

DYJP  -  YMID  -  Y < J+l) 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ4DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ,  DXJP*DXJ4DYJP‘DYJ) 

CTIMTJ  -  COSTHE (I) ‘COSTHE (J)  +  SINTHE (I) ‘SINTHE (J) 

STIMTJ  -  SINTHE (I) ‘COSTHE (J)  -  COSTHE (I) ‘SINTHE (J) 

AAN (I, J)  -  PI 2 I NV* (FTAN* CTIMTJ  +  FLOG ‘STIMTJ) 

BBN(I, J)  -  PI2INV* (FLOG*CTIMTJ  -  FTAN*STIMTJ) 

140  CONTINUE 

IF  {M.EQ.l)  RETURN 
MM1  -  M  -  1 

C  CYNP1 (N)  s  Y  -  VELOCITY  INDUCED  AT  MID  POINT  OF  WAKE  ELEMENT 
C  (NP1-TH  PANEL)  BY  UNIT  STRENGTH  N-TH  CORE  VORTEX 

C  CXNPl(N)  s  X  -  VELOCITY  INDUCED  AT  MID  POINT  OF  WAKE  ELEMENT 
C  (NP1-TH  PANEL)  BY  UNIT  STRENGTH  N-TH  CORE  VORTEX 

XMID  -  0. 5* (X (NP1)  +  X (NP141) ) 

YMID  -  0.5* (Y (NP1)  +  Y {NP1+1) ) 

DO  230  N  -  1.MM1 

DX  -  XMID  -  XC (N) 

DY  -  YMID  -  YC (N) 

DIST2  -  DX*DX+DY*DY 

CYNPl(N)  -  -PI2INV‘DX/DIST2 
CXNPl(N)  -  +PI2INV‘DY/DIST2 
230  CONTINUE 

IF  (NITR.GT. 0)  RETURN 

C  CCN(I,J)  :  NORMAL  VELOCITY  INDUCED  AT  MID-POINT  OF  I-TH  PANEL 
C  BY  UNIT  STRENGTH  N-TH  CORE  VORTEX 

C  CCT(I.J)  :  TANGENTIAL  VELOCITY  INDUCED  AT  MID-POINT  OF  I-TH  PANEL 
C  BY  UNIT  STRENGTH  N-TH  CORE  VORTEX 

DO  220  I  -  1, NODTOT 
XMID  -  0.5*  (X(I)  4  XU+1J) 

YMID  -  0. 5*  (Y (I)  +  Y (1  +  1) ) 

SUMCCN(I)  -  0.0 
SUMCCT ( I )  -  0.0 
DO  210  N  -  1,MM1 
DX  -  XMID  -  XC (N) 

DY  -  YMID  -  YC (N) 

DIST  -  SQRT (DX*DX+DY‘DY) 

COSTHN  -  DX/DIST 
SINTHN  -  DY/DIST 

CTIMTN  -  COSTHE (I) ‘COSTHN  +  SINTHE (I) ‘SINTHN 

STIMTN  -  SINTHE (I) ‘COSTHN  -  COSTHE (I) ‘SINTHN 

CCN  -  -CTIMTN/DIST 

CCT  -  -STIMTN/ DIST 

SUMCCN ( I )  -  SUMCCN (I)  4  CCN*CV{N) 

SUMCCT (I)  -  SUMCCT (I)  4  CCT*CV(N) 

210  CONTINUE 

SUMCCN (I)  -  PI2INV* SUMCCN (I) 

SUMCCT (I)  -  PI2INV* SUMCCT (I) 

220  CONTINUE 
C  END  COEFF  POT  INTEGR 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  KUTTA  (ALPHA, SINALF, COSALF,  CMEGA, UX, UY) 

C  USING  KUTTA  CONDITION  TO  DETERMINE  VORTICITY 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


200 


Appendix  B 


no 


789 

790 

791 

792 

793 

794 

795 

796 

797 
796 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 
84  9 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 


C 


50 

C 


120 

C 


100 

130 


SUBROUTINE  KUTTA  (ALPHA, SINALF , COSALF , OMEGA, UX, UY) 

COMMON  /BOD/  IFLAG,NLOHER,NUPPER, NODTOT.X (2021 , Y (202) . 

♦  COSTHE (201) , SINTHE (201) , SS, NP1.NP2 

COWON  /cor/  A(201,211)  ,NEQS 
COWON  /SING/  Q(200)  ,GAM4A,QK(200) , GAMK 
COMMON  /WAK/  VYW, VXW.HAKE, DT 

CCPWON  /CORV/  CV(200),XC(200),YC(200),M,TD,CCVX(200),CCVY(200) 
CCtWON  /INF1/  AAN (201,201)  ,B8N (201,201)  ,AYNP1  (201)  ,BYNP1  (201) 
COWON  /INF2/  SUMCCN  (201) ,  SUMCCT  (201)  ,CYNP1  (200)  ,CXNP1  (200) 
COWON  /GUST/  UG(200)  ,VG(200)  ,XGF,UGUST,VGUST 
DIMENSION  B1 (200) ,B2 (200) , AA(2)  ,BB (2) 

RETRIEVE  SOLUTION  FROM  A-MATRIX 
DO  50  I  -  1,  NODTOT 

Bl(I)  -  A(I,NP1) 

B2  (I)  -  A(I,NP2) 

FIND  VT  AT  TRAILING  EDGE  PANELS 
DO  130  K  -  1,2 
IF  (K  .EQ.  1)  I  -  1 
IF  (K  .EQ.  2)  I  -  NODTOT 
XMID  -  0.5  *  (X(I)  +  X  (1+1) ) 

YMID  -  0.5  *  (Y(I)  +  Y (1+1) ) 

VTANG  -  ( (1  .+UG(I) )  *COSALF-VG(I)  *SINALF+UX)  ‘COSTHE  (I ) 

+  ♦  ( (l.+UGd) )  *SINALF+VG(I)  *COSALF+UY)  *SINTHE  (I) 

+  +  OMEGA*  (YMID* COSTHE  (I )  -  XMID*SINTHE  (I) ) 

AA(K)  -  -  AAN(I,NP1)  ‘SS/WAKE 

BB(K)  -  VTANG  +  AAN(I,NP1)  *SS*GAIWA/WAKE 

DO  120  J  -  1, NODTOT 

AA(K)  -  AA(K)  +  AAN  (I,  J)  -  BBN(I,  J)*B1  (J) 

BB  (K)  -  BB(K)  -  BBN(I,  J)  *B2  ( J) 

CONTINUE 

ADD  CORE  VORTEX  CONTRIBUTION 
IF  (M.EQ.l)  GOTO  100 
BB(K)  -  BB(K)  +  SUMCCT ( I ) 

CONTINUE 

CONTINUE 


C 

EE 
FF 
GG 
RADI 
GAMK 
C 

DO  160 
160  QK(I) 

RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  NACA4 5 (Z, THICK, CAMBER,  BETA) 

C  EVALUATE  THICKNESS  AND  CAMBER 

C  FOR  NACA  4-  OR  5-DIGIT  AIRFOIL 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  NACA4 5 (Z, THICK, CAMBER,  BETA) 

COMMON  /PAR/  NACA,  TAU,  EPSMAX,  PTMAX 
THICK  -  0.0 

IF  (Z  .LT.  l.E-10)  GO  TO  100 

THICK  -  5. *TAU* ( . 2969*SQRT (Z)  -  Z*(.126  +  Z*(.3537 
+  -  Z* ( .2843  -  Z* . 1015) ) ) ) 

100  IF  (EPSMAX  .EQ.  0.0)  GO  TO  130 
IF  (NACA  .GT.  9999)  GO  TO  140 
IF  (J  .GT.  PTMAX)  GO  TO  110 
CAMBEF  -  EPSMAX/ PTMAX/ PTMAX* (2.* PTMAX  -  Z)*Z 
DCAMD"  -  2. *EPSMAX/ PTMAX/ PTMAX* (PTMAX  -  Z) 


SATISFYING  KUTTA  CONDITION  —  SOLVE  FOR  VORTEX  STRENGTH 

-  AA ( 1 ) *AA ( 1 )  -  AA ( 2 ) *AA ( 2 ) 

-  AA(1)  *BB  (1)  -  AA(2)  *BB  (2)  -  SS/DT 

-  BB ( 1 )  *BB ( 1 )  -  BB  (2)  *BB  (2)  ♦  2.*SS*GA»WA/DT 

-  SQRT(FF*FF-EE*GG) 

-  (-FF  -  RADI) /EE 
CALCULATE  SOURCE  STRENGTH 
I  -  1, NODTOT 

-  GAMK*B1 (I)  +  B2(I) 


GO  TO  120 


110  CAMBER  -  EPSMAX/ ( 1. -PTMAX) **2*(1.  +  Z  -  2.*PTMAX) * (1.  -  Z) 
DCAMDX  -  2. ‘EPSMAX/ (1. -PTMAX) **2* (PTMAX  -  Z) 

120  BETA  -  ATAN(DCAM'  X) 

RETURN 

130  CAMBER  -  0.0 
BETA  -  0.0 
RETURN 

140  IF  (Z  .GT.  PTMAX)  GO  TO  150 

W  -  Z/ PTMAX 

CAMBER  -  EPSMAX*W*((W  -  3.)*W  ♦  3.  -  PTMAX) 

DCAMDX  -  EPSMAX* 3 . *W*  ( 1 .  -  W) /PTMAX 
GO  TO  120 

150  CAMBER  -  EPSMAX* (1.  -  Z) 

DCAMDX  -  -  EPSMAX 
GO  TO  120 
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a<a 

/WYV* 

END 

rKWV»/W 

BvO 

869 

c 

SUBROUTINE  PRESSs 

870 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

871 

SUBROUTINE  PRESSs 

872 

COWON 

/BOD/  IFLAG,NLOWER, NUPPER, NODTOT, X (202) , Y (202) , 

873 

+ 

COSTHE (201) , SINTHE (201)  ,SS,  NP1,  NP2 

874 

COMMON 

/CPD/  CP (200), pivot 

875 

character  filnq*15,alpn*10 

876 

alpn  - 

•0123456789' 

877 

filnq 

-  'cps.d' 

878 

open  (unit-90,  file-filnq,  form**  formatted' ) 

879 

C.. Compute  cp  at  mid  point  of  i-th  panel 

880 

WRITE  (90, * (2112.5) M 

881 

> 

0.5* (x  (i)+x(i+l) ) ,  CPU),  i-l,nodtot) 

882 

close (90) 

883 

RETURN 

884 

END 

885 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

886 

c 

SUBROUTINE  PRESS  (SI HALF, COSA1F,  OMEGA,  UX,  UY)  C 

887 

c 

COMPUTE  UNSTEADY  FLOW  PRESSURE  DISTRIBUTION  C 

888 

c 

AND  VELOCITY  POTENTIAL  AT  MID-POINTS  OF  PANELS  C 

889 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

890 

SUBROUTINE  PRESS  (SINALF, COSALF,  OMEGA, UX, UY, ALPHA) 

891 

COMMON 

/BOD/  I FLAG, NLOWER, NUPPER, NODTOT, X (202) , Y (202 ) , 

892 

♦ 

COSTHE (201) , SINTHE (201) ,  SS,  NP1,NP2 

893 

COMMON 

/CPD/  CP(200), pivot 

894 

COMMON 

/NUM/  PI, PI2INV 

895 

CCM40N 

/SING/  Q(200)  , GAMMA, QK (200) ,  GAMK 

896 

COMMON 

/WAK/  VYW, VXW, WAKE, DT 

897 

COMMON 

/CORV/  CV(200)  ,XC(200) ,  YC(200)  ,M,TD,CCVX(200)  ,CCVY(200) 

898 

COMMON 

/INF1/  AAN (201, 201) , BBN (201, 201) ,AYNP1 (201) ,8YNP1 (201) 

899 

COMMON 

/INF2/  SUMCCN(201)  ,SUMCCT  (201)  ,CYNP1  (200)  ,CXNP1  (200) 

900 

COMMON 

/POT/  PHI (200) ,PHIK(200) 

901 

COMMON 

/GUST/  UGI200) ,VG(200) ,XGF,UGUST,VGUST 

902 

COMMON 

/EXTV/  UE (200) 

903 

COMMON 

/MAINout/  ialfao(20),  naot,  nao 

904 

COMMON 

/DELPHI/  DPHITE, DPHIMP 

905 

character  filnq*15,alpn*10 

906 

alpn  - 

•0123456789' 

907 

c 

FIND 

TANGENTIAL  VELOCITY  VT  AT  MID-POINT  OF  I-TH  PANEL 

908 

DO  130 

I  -  1,  NODTOT 

909 

XMID 

-  0.5  *  (XU)  +  X(I+1)  ) 

910 

YMID 

-  0.5  *  (Y(I)  +  YU+1>) 

911 

DX 

-  (X(lel)  -  X(I) ) 

912 

DY 

-  (Y (1+1)  -  YU)) 

913 

DIST 

-  SWT  (DX*DX+DY*DY) 

914 

VSX 

-  (l.+UGU) ) *COSALF-VG(I) *SINALF  +  OMEGA* YMID  +  UX 

915 

VSY 

-  (l.+UGU) )*SINALF+VG(I)*COSALF  -  OMEGA* XMID  ♦  UY 

916 

VS 

-  VSX*VSX  ♦  VSY*VSY 

917 

VTANG 

-  ( (l.+UGU) )  *COSALF-VG(I) *SINALF+UX) ‘COSTHE  (I) 

918 

+ 

+  ((l.+UGU)  )*SINALF+VG  (I)  *COSALF+UY) ‘SINTHE  (I) 

919 

♦ 

♦  CMEGA* (YMID* COSTHE (I)  -  XMID* SINTHE (I) ) 

920 

VTFREE 

-  VTANG 

921 

C8810 

DPHFRE 

-  DPHFRE  +  VTANG* DIST 

922 

C8811 

DPHWKE 

-  DPHWKE  +  SS* (GAMMA-GAMK)  *AAN (I,NP1)  /WAKE*DIST 

923 

VTANG 

-  VTANG  +  SS* (GAMMA-GAMK) *AAN (I,NP1) /HAKE 

924 

DO  120 

J  -  1, NODTOT 

925 

VTANG 

-  VTANG  -  BBN(I,J)*QK(J)  +  t  N(I,J)*GAMK 

926 

C8812 

DPHGAM 

-  DPHGAM  +  AAN (I. J) *GAMK*DIST 

927 

C8813 

DELPHI  (J)  -  DELPHI  (J)  -  BBN (I,  J) *QK ( J) *DIST 

928 

120 

CONTINUE 

929 

c 

ADD 

CORF  VORTEX  CONTRIBUTION 

930 

IF  (M.EQ.l,  GOTO  150 

931 

VTANG 

-  VTANG  +  SUMCCT(I) 

932 

C8814 

DPHWAK 

-  DPHWAK  +  SUMCCT ( I ) *DI ST 

933 

150 

CONTINUE 

934 

PHIK(I) 

-  (VTANG- VTFREE) *DIST 

935 

CP(I> 

-  VS  -  VTANG*VTANG 

936 

UE(I) 

-  VTANG 

937 

130 

CONTINUE 

938 

c 

COMPUTE 

DISTURBANCE  POTENTIAL  BY  LINE  INTEGRAL  OF  VELOCITY  FIELD 

939 

c 

INTEGRATION  FROM  UPSTREAM  (AT  INFINITY)  TO  THE  LEADING  EDGE 

940 

NPHI 

-  10  *  NLOWER 

941 

PINK 

-  0.0 

942 

XL 

-  0.0 

943 

DO  30 

L  -  1,NPHI 

944 

FRACT 

-  FLOAT (L) /FLOAT (NPHI) 
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945 
94  6 
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950 
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959 

960 
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963 
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973 

974 

975 

976 

977 

978 
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984 
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987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
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1002 

1003 

1004 
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1006 

1007 

1008 

1009 
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1013 
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1015 
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C 


40 

20 

C 


60 

50 

30 


XLP  -  -10.0  *  (1.0  -  COS ( 0 . 5* PI * FRACT ) ) 

DELX  -  XL  -  XLP 

XMID  -  0.5* (XL+XLP) *COSALF 

YMID  -  0.5* (XL+XLP) *SINALF 

XL  -  XLP 

VELX  -  UGUST 

ADD  CONTRIBUTION  OF  J-TH  PANEL 
DO  20  J  -  1,NP1 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y(J) 

DYJP  -  YMID  -  Y (J+l) 

FLOG  -  .5*ALOG( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ,  DXJP*DXJ+DYJP*DYJ) 

CALMTJ  -  -COSALF’COSTHE ( J)  -  SINALF'SINTHE  < J) 

SALMTJ  -  -SINALF*COSTHE (J)  +  COSALF*SINTHE ( J) 

APY  *-  PI2INV*  (FT  AN ‘CALMTJ  +  FLOG*  SALMTJ) 

BPY  -  PI2INV* ( FLOG* CALMTJ  -  FT AN* SALMTJ) 

IF  (J  .EQ.  NP1)  GO  TO  40 

VELX  -  VELX  -  BPY*QK( J)  +GAMK*APY 

GO  TO  20 

VELX  -  VELX  +  SS*APY* ( GAMMA- GAMK) /WAKE 
CONTINUE 

ADD  CORE  VORTEX  CONTRIBUTION 
IF  (M  .EQ.  1)  GO  TO  50 
MM1  -  M  -  1 
DO  60  N  -  1,MM1 
DX  -  XMID  -  XC (N) 

DY  -  YMID  -  YC (N) 

DIST  -  SQRT (DX*DX+DY*DY) 

COSTHN  -  DX/PIST 
SINTHN  -  DY/DIST 

SALMTN  -  -SINALF*COSTHN  +  COSAL F*  S I NTHN 
CPT  -  - PI 2 I NV* SALMTN/ DIST 
VELX  «  VELX  +  CPT*CV (N) 

CONTINUE 

PINK  -  PINK  ♦  VELX  *  DELX 
CONTINUE 


C  COMPUTE  DISTURBANCE  POTENTIAL  AT  MID-POINT  OF  I-TH  PANEL 

C  LOWER  SURFACE 

DO  230  I  -  1, NLCWER 
PH  -  -PINK 

DO  240  J  -  I.NLCWER 
240  PH  -  PH  -  PHIK(J) 

PHIK(I)  -  PH 
230  CONTINUE 

8850  PHILOW  -  PHIK(l) 

DO  270  I  -  1, NLOWER-1 

PHIK(I)  -  0.5* (PHIK(I)  +  PHIK(I+1) ) 

270  CONTINUE 

PHIK (NLCWER)  -  0.5* (PHIK(NLCWER)  -  PINK) 

C  UPPER  SURFACE 

DO  250  I  -  NODTOT , NLCWER* 1,-1 
PH  -  -PINK 

DO  260  J  -  NLCWER* 1 , I 
260  PH  -  PH  +  PHIK(J) 

PHIK (I)  -  PH 
250  CONTINUE 

8851  PHIUPP  -  PHIK (NODTOT) 

DO  280  I  -  NODTOT, NLCWER+ 2,-1 
PHIK(I)  -  0.5* (PHIK(I)  +  PHIK(I-l) } 

280  CONTINUE 

PHI K ( NLOWER+ 1 )  -  0.5* (PHIK(NLCWER+1)  -  PINK) 

8871  DPHITE  -  (PHIUPP-PHILCW) /SS 

8872  DPHIMP  -  (PHIK (NODTOT) -PHIK(l) ) /SS 

DO  290  I  -  1 , NODTOT 

290  CP  (I )  «  CP  (I)  -  2  .*  (PHIK(I)  -PHI  (I) )  /DT 

if(  (  ialfao(nao)  .gt.  ialfao(nao-l)  .and. 

>  alpha  .ge.  float(ialfao(nao))/10.)  .OR. 

>  (  ialfao(nao)  .It.  ialfao(nao-l)  .and. 

>  alpha  .le.  float (ialfao(nao) ) /10. )  )  then 
itn  •  ialfao(nao) 

i3  -  itn/100  +  1 
i2  -  (itn  -  (13-1) *100) /10  +  1 
il  -  (itn  -  (13—1)  *100  -  (i2-l)*10)  +  1 
if(  ialfao(nao)  .It.  ialfao(nao-l) )  then 
filnq  -  ,cpd,//alpn(i3:i3)//alpn(i2:i2)//alpn(il:il)//’,d, 
else 
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1 


1023 

filnq  «  *cpu'//alpn(i3:i3)//alpn(i2:i2)//alpn(il:il)//' .d' 

1024 

endif 

1025 

nao  -  nao+1 

1026 

if (nao  .  <j|t .  naot)  nao  -  1 

1027 

open  (unit-90, f ile»f ilnq, form- ' formatted* ) 

1028 

C 

.  .Compute  cp  at  mid  point  of  i-th  panel 

1029 

WRITE  (90, * <2fl2.6) *) 

1030 

>  (  0.5*(x(i)+x(i+l)),  CP ( I ) ,  i-l,nodtot) 

1031 

close (90) 

1032 

endif 

1033 

RETURN 

1034 

END 

1035 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1036 

c 

SUBROUTINE  SETUP 

C 

1037 

c 

SETUP  COORDINATES  OF  PANEL  NODES  AND  SLOPES  OF  PANELS 

c 

1038 

c 

COORDINATES  ARE  READ  FROM  INPUT  DATA  FILE  UNLESS 

c 

1039 

c 

THE  AIRFOIL  IS  OF  NACA  XXXX  OR  NACA  230XX  TYPE 

C 

1040 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1041 

SUBROUTINE  SETUP 

1042 

CC9WON  /BOD/  IFLAG,NLOWER,NUPP£R,NODTOT,X(202),Y(202), 

1043 

+  COSTHE  (201) ,  SINTHE  (201) ,  SS,  NP1,NP2 

1044 

COMMON  /NUM/  PI.PI2INV 

1045 

PI  -  3.1415926585 

1046 

PI2INV  -  .5/PI 

1047 

c 

SET  COORDINATES  OF  NODES  ON  BODY  SURFACE 

1048 

IF  (I FLAG  .eq.  0)  then 

1049 

N POINT  -  NLOWER 

1050 

SIGN  -  -1.0 

1051 

NSTART  -  0 

1052 

DO  110  NSURF  -  1,2 

1053 

DO  100  N  -  l.NPOINT 

1054 

FRACT  -  FLOAT (N-l) /FLOAT (NPOINT) 

1055 

Z  -  . 5* (1.  -  COS (PI* FRACT)) 

1056 

I  -  NSTART  +  N 

1057 

CALL  BODY (Z,SIGN,X(I)  ,  Y(I)  ) 

1058 

100 

CONTINUE 

1059 

NPOINT  -  NUPPER 

1060 

SIGN  -  1.0 

1061 

NSTART  -  NLOWER 

1062 

110 

CONTINUE 

1063 

NODTOT  -  NLOWER  +  NUPPER 

1064 

X (NODTOT+1)  -  X(l) 

1065 

Y  (NODTOT+1 )  -  YC! 

1066 

ELSE 

1067 

NODTOT  -  NLOWER  +  NUPPER 

1068 

c 

READ  (1,*)  (X ( I ),I-1. NODTOT+1) 

1069 

c 

WRITE  (6,501)  (X  (I) ,  1-1, NODTOT* I ) 

1070 

c 

READ  (1,*)  (Y(I) ,1-1, NODTOT+1) 

1071 

c 

WRITE  (6,501)  (Y(I),I-1, NODTOT+1) 

1072 

c 

501 

FORMAT  (6F10.6) 

1073 

READ  (1,«)  <X(I) ,Y(i) ,1-1, NODTOT+1) 

1074 

ENDIF 

1075 

NP1  -  NODTOT  +  1 

1076 

NP2  -  NODTOT  ♦  2 

1077 

c 

.SET 

SLOPES  OF  PANELS  AND  CALCULATE  AIRFOIL  PERIMETER 

1078 

SS  -  0.0 

107  9 

DO  200  I  -  1, NODTOT 

1080 

DX  -  XU  +  l)  -  XU) 

1081 

DY  -  Y (1+1)  -  Y(I) 

1082 

DIST  -  SQRT (DX*DX  +DY*DY) 

1083 

SS  -  SS  +  DIST 

1084 

SINTHE (I)  -  DY/DIST 

1085 

COSTHF , I )  -  DX/DIST 

1086 

200 

CONTINJE 

1087 

RETURN 

1088 

END 

1089 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1090 

c 

SUBROUTINE  TEWAK  (SINALF, COSALF) 

C 

1091 

c 

COMPUTE  WAKE  ELEMENT  AT  THE  TRAILING  EDGE 

C 

1092 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1093 

SUBROUTINE  TEWAK  (SINALF, COSALF) 

1094 

COMMON  /BOD/  IFLAG, NLOWER, NUPPER, NODTOT, X (202) , Y (202) , 

1095 

+  COSTHE (201) , SINTHE (201), SS,NP1,NP2 

1096 

COMMON  /COF/  A(201,211) ,NEQS 

1097 

COMMON  /SING/  Q(200) .GAMMA, QK(200) ,GAMK 

1098 

COMMON  /WA K/  VYW, VXW.WAKE, DT 

1099 

COMMON  /WAK2/  VYWK.VXWK 

1100 

COMMON  /CORV/  CV(200) ,  XC(200) ,  YC  (200)  ,M,  TD.CCVX  (200)  ,CCVY  (200) 
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1101 

1102 

1103 

1104 

1105 

1106 
1107 
1106 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 

me 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 


COMMON  /INF1/  AAN (201, 201) , BBN (201, 201) ,AYNP1 (201) , BYNP1 (201 ) 
COMMON  /INF2/  SUMCCN1201) , SUMCCT (201) , CYNP1 (200) ,CXNP1 (200) 

COMMON  /GUST/  UG (200) , VG (200) , XGF,  UGUST, VGUST 
XMID  -  0.5  *  (X(NP1)  +  X  (NP2) ) 

YMID  -  0.5  *  (Y(NP1)  +  Y (NP2) ) 

UGW  -  0.0 

VGW  •  0 . 0 

XG  -  XMID‘COSALF  +  YMID‘SINALF 

IF  (XG  .GT.  XGF)  GO  TO  10 
UGW  -  UGUST 

VGW  -  VGUST 

10  VYWK  -  (1. +UGW) ‘SINALF+ VGW* COSALF 

VXWK  -  (1 . +UGW) ‘COSALF-VGW‘SINALF 

DO  120  J  -  1,  NODTOT 

VYWK  -  VYWK  +  AYNP1 (J) *QK(J)  +  BYNP1 ( J) *GAMK 

120  VXWK  -  VXWK  -  BYNP1  (J)  *QK(J)  +  AYNP1 ( J) *GAMK 

C  ADD  CORE  VORTEX  CONTRIBUTION 

IF  (M  .EQ.  1)  GO  TO  140 
MM1  -  M  -  1 

DO  130  N  -  1,MM1 

VYWK  -  VYWK  +  CYNP1 (N) *CV (N) 

130  VXWK  -  VXWK  +  CXNP1 (N) *CV (N) 

140  CONTINUE 
RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE  VELDIS  (SINALF,  COSALF) 

C  COMPUTE  STEADY  FLOW  PRESSURE  DISTRIBUTION 

C  AND  VELOCITY  POTENTIAL  AT  MID-POINTS  OF  PANELS 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  VELDIS (SINALF, COSALF) 

COMMON  /BOD/  IFLAG, NLOWER, NUPPER,  NODTOT, X (202) ,  Y (202) , 

+  COSTHE (201) , SINTHE (201) , SS,NP1,NP2 

COMMON  /COF/  A (201, 211) , KUTTA 
COMMON  /CPD/  CP(200) , pivot 
COMMON  /NUM/  PI,PI2INV 
COMMON  /SING/  Q (200) , GAMMA, QK (200) ,  GAMK 
COMMON  /POT/  PHI  (200)  ,PHIK(200) 

COMMON  /GUST/  UG (200) ,VG (200) , XGF, UGUST, VGUST 
COMMON  /EXTV/  UE(200) 

8870  COMMON  /DELPHI/  DPHITE, DPHIMP 
C  RETRIEVE  SOLUTION  FROM  A-MATRIX 

DO  50  I  -  1, NODTOT 
50  Q(I)  -  A(I,KUTTA+1) 

GAMMA  -  A(KUTTA,KUTTA+1) 

C  FIND  VT  AND  CP  AT  MID- POINT  OF  I-TH  PANEL 

DO  130  I  -  1, NODTOT 
XMID  -  .  5*  (X  (I)  +  X  (1  +  1) ) 

YMID  -  .5*  (Y (I)  +  Y (1  +  1) ) 

“  VTANG  »>  V/V(inf ) 

VTANG  -  COSALF* COSTHE (I)  +  SINALF*SINTHE (I ) 

VTFREE  -  VTANG 

C  ADD  CONTRIBUTION  OF  J-TH  PANEL 

DO  120  J  -  1, NODTOT 

FLOG  -  0.0 

FTAN  -  PI 

IF  (J  .EQ.  I)  GO  TO  100 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y ( J) 

DYJP  -  YMID  -  Y (J+l) 

FLOG  -  . 5*ALOG ( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 

100  CTIMTJ  -  COSTHE (I) ‘COSTHE (J)  +  SINTHE (I) ‘SINTHE (J) 

STIMTJ  -  SINTHE (I) ‘COSTHE (J)  -  COSTHE (I ) ‘SINTHE (J) 

AA  -  PI2INV‘ (FTAN*CTIMTJ  +  FLOG*STIMTJ) 

B  -  PI2INV* (FLOG'CTIMTJ  -  FT AN‘ STIMTJ) 

VTANG  -  VTANG  -  B‘Q(J)  + GAMMA* AA 

120  CONTINUE 

CPU)  -  1.0  -  VTANG ‘VTANG 

UE (I)  -  VTANG 

write  (91,*)xmid,abs (vtang) 

WRITE  (6,1050)  I,XMID,Q(I)  .GAMMA, CP (I)  ,UE  (I) 

C  WRITE  (19,*)  XMID, -CPU) 

C  INITIAL  SET-UP  FOR  DISTURBANCE  POTENTIAL  CALCULATION 

DX  -  XU  +  1)  -  X(I) 

DY  -  Y (1+1)  -  Y(I) 
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ooo 


1179 

DIST  -  SQRT (DX*DX+DY*DY) 

1180 

PHI (I)  -  (VTANG-VTFREE ) * DI ST 

1181 

130 

CONTINUE 

1182 

C 

COMPUTE  DISTURBANCE  POTENTIAL  BY  LINE  INTEGRAL  OF  VELOCITY  FIELD 

1183 

C 

INTEGRATION  FROM  UPSTREAM  (AT  INFINITY)  TO  THE  LEADING  EDGE 

1184 

NPHI  -  10  *  NLOWER 

1185 

PIN  -  0.0 

1186 

XL  -  0.0 

1187 

DO  30  L  -  1, NPHI 

1188 

FRACT  -  FLOAT (L) /FLOAT (NPHI ) 

1189 

XLP  -  -10.0  *  (1.0  -  COS (0.5* PI* FRACT ) ) 

1190 

DELX  -  XL  -  XLP 

1191 

XMID  -  0 . 5* (XL+XLP) *COSALF 

1192 

YMID  -  0. 5* (XL+XLP) ‘SINALF 

1193 

XL  -  XLP 

1194 

VELX  -  UGUST 

1195 

C 

ADD  CONTRIBUTION  OF  J-TH  PANEL 

1196 

DO  20  J  -  1,  NODTOT 

1197 

DXJ  -  XMID  -  X(J) 

1198 

DXJP  -  XMID  -  X(J+1) 

1199 

DYJ  -  YMID  -  Y ( J) 

1200 

DYJP  -  YMID  -  Y (J+l) 

1201 

FLOG  -  . 5*ALOG( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

1202 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 

1203 

CALMTJ  -  -COSALF'COSTHE ( J)  -  SINALF*SINTHE ( J) 

1204 

SALMTJ  -  -SINALF*COSTHE (J)  +  COSALF*SINTHE ( J) 

1205 

APY  -  PI2INV* (FTAN*CALMTJ  +  FLOG* SALMTJ) 

1206 

BPY  -  PI2INV* (FLOG*CALMTJ  -  FTAN* SALMTJ) 

1207 

VELX  -  VELX  -  BPY*Q(J)  +GA»4A*APY 

1208 

20 

CONTINUE 

1209 

PIN  -  PIN  +  VELX  *  DELX 

1210 

30 

CONTINUE 

1211 

C 

COMPUTE  DISTURBANCE  POTENTIAL  AT  MID-POINT  OF  I-TH  PANEL 

1212 

c 

LOWER  SURFACE 

1213 

DO  230  I  -  1, NLOWER 

1214 

PH  -  -PIN 

1215 

DO  240  J  -  I.NLCWER 

1216 

240 

PH  -  PH  -  PHI  (J) 

1217 

PHI  (I)  -  PH 

1218 

230 

CONTINUE 

1219 

8861 

PHILOW  -  PHI (1) 

1220 

DO  270  I  -  1 , NLOWER- 1 

1221 

PHI  (I)  -  0.5* (PHI (I)  *  PHI (1*1): 

1222 

270 

CONTINUE 

1223 

PHI (NLOWER)  -  0.5* (PHI (NLOWER)  -  PIN) 

1224 

C 

UPPER  SURFACE 

1225 

DO  250  I  -  NODTOT, NLOWER* 1,-1 

1226 

PH  -  -PIN 

1227 

DO  260  J  -  NLOWER* 1,1 

1228 

260 

PH  -  PH  +  PHI  ( J) 

1229 

PHI  (I)  -  PH 

1230 

250 

CONTINUE 

1231 

8860 

PHIUPP  -  PHI (NODTOT) 

1232 

DO  280  I  -  NODTOT, NLOWER* 2,-1 

1233 

PHI  (I )  -  0.5* (PHI  (I)  +  PHI ( I  —  1 } ) 

1234 

280 

CONTINUE 

1235 

PHI (NLOWER* 1 )  -  0. 5* (PHI (NLCWER+1)  -  PIN) 

1236 

1000 

FORMAT  (/,  4X,  'J’,4X,  'X(J)  ' ,  6X,  'Q(J)  ' ,  5X,  'GAMMA',  5X, 

1237 

*  'CP(J) ' , 6X, 'V(J) ',/) 

1238 

1050 

FORMAT (15, 5F10 . 6) 

1239 

8871 

DPHITE  -  ( PHIUPP-PHILOW) /SS 

1240 

8872 

DPHIMP  *=  (PHI  (NODTOT) -PHI  (1)  )/SS 

1241 

C8862 

WRITE  (8,8863)  (PHIUPP-PHILOW) /SS 

1242 

C8863 

FORMAT  (//IX, 'CIRCULATION  VIA  POTENTIAL: ' ,E14 . 6// ) 

1243 

RETURN 

1244 

END 

1245 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1246 

SUBROUTINE  PINTEG (GAMMA, Q) 

1247 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

1248 

COMMON  /BOD/  IFLAG, NLOWER, NUPPER, NODTOT, X (202) , Y (202) , 

1249 

+  COSTHE(201),SINTHE;201),SS,NP1,NP2 

1250 

COMMON  /NUM/  PI,PI2INV 

1251 

COMMON  /DELPHI/  DPHITE, DPHIMP 

1252 

COMMON  /PINTG/AANP (201,201,6) ,BBNP (201, 201,  6) 

1253 

DIMENSION  Q ( 200 ) 

1254 

DIMENSION  WGHT ( 6 ) 

1255 

DATA  WGHT/. 08566225, . 18038079, .23395697, 

1256 

+  .23395697, .18038079, .08566225/ 
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1257 

c  ••* 

PRECISE  CONTOUR  INTEGRATION  *  +  +  * 

1250 

SUMC  -  0.0 

1259 

DO  8000  I  -  1 , NODTOT 

1260 

DX  -  (XU  +  l)  -  X (I )  ) 

1261 

DY  -  (Y (1  +  1)  -  Y(I)  ) 

1262 

DIST  -  SQRT (DX+DX+DY+DY) 

1263 

DO  8000  K  -  1,6 

1264 

VTANG  -0.0 

1265 

DO  8100  J  -  1, NODTOT 

1266 

8100 

VTANG  -  VTANG  -  BBNP(I,  J,K)  *Q(J)  +  AANP  (I,  J,K) ‘GAMMA 

1267 

8000 

SUMC  -  SUMC  +  VTANG*DIST*WGHT (K) 

1268 

C  +  *  + 

DUMMY  INTEGRATION  ““ 

1269 

SUM  -  0.0 

1270 

C  INTEGRATION  FROM  TRAILING  EDGE  TO  (1.0. -0.1) 

1271 

XMID  -  1.0 

1272 

Y1  -  0.0 

1273 

DO  9100  K-1,10 

1274 

Y2  -  -FLOAT (K) / 100. 

1275 

YMID  -  0.5* (Y1+Y2) 

1276 

DELY  -  Y2-Y1 

1277 

SUM1  -  0.0 

1278 

DO  9000  J  -  1, NODTOT 

1279 

DXJ  -  XMID  -  X(J) 

1280 

DXJP  -  XMID  -  X(J+1) 

1281 

DYJ  -  YMID  -  Y  (J) 

1282 

DYJP  -  YMID  -  Y (J+l) 

1283 

FLOG  -  . 5*ALOG( (DXJP*DXJP+DYJP‘DYJP) / (DXJ+DXJ+DYJ+DYJ) 

1284 

FT AN  -  ATAN2 (DYJP+DXJ-DXJP+DYJ,  DXJP+DXJ+DYJP*DYJ) 

1285 

APY  -  PI2INV* (FTAN*COSTHE ( J)  -  FLOG*SINTHE ' J) ) 

1286 

BPY  -  PI2INV* (FLOG*COSTHE (J)  +  FTAN*SINTHE ( J) ) 

1287 

9000 

SUM1  -  SUM1  +  APY+QIJ)  +  BPY+GAMMA 

1288 

SUM  -  SUM  +  SUM1*DELY 

1289 

Y1  -  Y2 

1290 

9100 

CONTINUE 

1291 

C  INTEGRATION  FROM  (1.0, -0.1)  TO  (-0-1, -0.1) 

1292 

YMID  -  -0.1 

1293 

XI  -  1.0 

1294 

DO  9200  K-l, 100 

1295 

X2  -  1.0-1. l*FLOAT (K) /100. 

1296 

XMID  -  0. 5* (X1+X2) 

1297 

DELX  -  X2-X1 

1298 

SUM1  -  0.0 

1299 

DO  9250  J  -  1, NODTOT 

1300 

DXJ  -  XMID  -  X(J) 

1301 

DXJP  -  XMID  -  X(J+1) 

1302 

DYJ  -  YMID  -  Y (J) 

1303 

DYJP  -  YMID  -  Y ( J+l) 

1304 

FLOG  -  . 5*ALOG(  (DXJP*DXJP+DYJP*DYJP) / (DXJ+DXJ+DYJ*DYJ) 

1305 

FT AN  -  ATAN2 (DYJP+DXJ-DXJP*DYJ, DXJP+DXJ+DYJP+DYJ) 

1306 

APY  -  PI2INV* (FTAN*COSTHE ( J)  -  FLOG*SINTHE  (J) ) 

1307 

BPY  -  PI2INV+ (FLOG+COSTHE (J)  ♦  FTAN+SINTHE ( J) ) 

1308 

9250 

SUM1  -  SUM1  -  BPY+Q ( J)  +  APY ‘GAMMA 

1309 

XI  -  X2 

1310 

SUM  -  SUM  +  SUM1*DELX 

1311 

9200 

CONTINUE 

1312 

C  INTEGRATION  FROM  !-0.1,-0.1)  TO  (-0.1, 0.1) 

1313 

XMID  -  -0.1 

1314 

Y1  -  -0.1 

1315 

DO  9300  K-l, 20 

1316 

Y2  -  -0. 1+FLOAT (K) /100. 

1317 

YMID  -  0.5+ (Y1+Y2) 

1318 

DELY  -  Y2-Y1 

1319 

SUM1  -  0.0 

1320 

DO  9350  J  -  1, NODTOT 

1321 

DXJ  -  XMID  -  X(J) 

1322 

DXJP  -  XMID  -  X(J+1) 

1323 

DYJ  -  YMID  -  Y ( J) 

1324 

DYJP  -  YMID  -  Y (J+l) 

1325 

FLOG  -  . 5‘ALOG ( (DXJP‘DXJP+DYJP‘DYJP) / (DXJ*DXJ+DYJ*DYJ) 

1326 

FT AN  -  ATAN2 (DYJP+DXJ-DXJP*DYJ, DXJP+DXJ+DYJP+DYJ) 

1327 

APY  -  PI2INV* (FTAN‘COSTHE(J)  -  FLOG+SINTHE ( J) ) 

1328 

BPY  -  PI2INV* (FLOG+COSTHE ( J)  +  FTAN‘SINTHE ( J) ) 

1329 

9350 

SUM1  -  SUM1  +  APY*Q(J)  +  BPY* GAMMA 

1330 

SUM  -  SUM  +  SUMl+DELY 

1331 

Y1  -  Y2 

1332 

9300 

CONTINUE 

1333 

C  INTEGRATION  FROM  (-0.1, 0.1)  TO  (1.0, 0.1) 

1334 

YMID  -  0.1 

207 


Appendix  B 


1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 
1363 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 
1383 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 


XI  -  -0.1 

DO  9400  K-1,100 

X2  -  -0.1+1. 1* FLOAT (K) /100 . 

XMID  -  0.5* (X1+X2) 

DELX  -  X2-X1 
SUM1  -  0.0 

DO  9450  J  -  1, NODTOT 
XMID  -  X(J) 

XMID  -  X(J+1) 

YMID  -  Y(J) 

YMID  -  Y ( J+l) 

•5*ALOG( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 
ATAN2 (DYJP*DXJ-DXJP*DYJ, DXJP*DXJ+DYJP*DYJ) 
PI2INV* (FT AN ’COST HE (J)  -  FLOG*SINTH£ ( J) ) 

PI2INV* (FLOG*COSTHE ( J)  +  FTAN*SINTHE ( J) ) 

SDMI  -  BPY*Q(J)  +  APY*GAMMA 


DXJ 
DXJP 
DYJ 
DYJP 
FLOG 
FT  AN 
APY 
BPY 

9450  SUM1 
XI  - 
SUM 

9400  CONTINUE 
2  INTEGRATION 
XMID  -  1 


X2 


SUM  ♦  SUM 1 * DELX 


FROM 

0 


(1.0, 0.1)  TO  TRAILING  EDGE 


9550 


9500 
C9600 
C9660 
C  + 

c  *• 

c 

+ 

+ 

+ 

c  + 


Y1  -  0.1 

DO  9500  K-1,10 

Y2  -  0 . 1-FLQAT (K) /100 . 

YMID  -  0 . 5* ( Y1+Y2) 

DELY  -  Y2-Y1 
SUM1  -  0.0 
DO  9550  J  -  1 , NODTOT 
DXJ  -  XMID  -  X(J) 

DXJP  -  XMID  -  X(J+1) 

DYJ  -  YMID  -  Y  ( J) 

DYJP  -  YMID  -  Y (J+l) 

FLOG  -  . 5*ALOG( (DXJP*DXJP+DYJP*DYJP) / (DXJ*DXJ+DYJ*DYJ) ) 

FTAN  -  ATAN2 (DYJP*DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 

APY  -  PI2INV* (FTAN*COSTHE ( J)  -  FLOG*SINTHE ( J) ) 

BPY  -  PI2INV* (FLOG*COSTHE (J)  +  FTAN*SINTHE ( J) ) 

SUM1  -  SUM1  +  APY*Q(J)  +  BPY*GAMMA 

SUM  -  SUM  +  SUM1*DELY 

Y1  -  Y2 
CONTINUE 

WRITE  (6,9660)  GAMMA, DPHITE, DPHIMP, SUM/SS, SUMC/SS 
FORMAT  (//IX, 52 (1H“) //, 

IX, 'COMPARISON  OF  GAMMAS*//, 

IX, 'GAMMA  FROM  KUTTA  CONDITION:  ',F12.8/ 

IX, 'GAMMA  FROM  CONTOUR  INTEGR  (TRAIL  EDGE):  *,F12.8/ 
IX, 'GAMMA  FROM  CONTOUR  INTEGR  (MIDPOINTS):  ',F12.8/ 
IX, 'GAMMA  FROM  BOX  INTEGR  (OFF  THE  CONTOUR) :', F12 . 8/ 
IX, 'GAMMA  FROM  PRECISE  CONTOUR  INTEG  (6  PT) : ' , F12 . 8// 
IX,  52 (1H“) / / ) 


RETURN 

END 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
C  THIS  PROGRAM  TAKES  THE  INPUT  FILE  (FILE  CODE  14)  AND  CONVERTS  THE 
C  DATA  TO  A  FREQUENCY,  AMPLITUDE,  AND  PHASE  SHIFT. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  PHAZ (npts,ntcycle,w, itrans, alpl) 
parameter  (nwmx“200,  npmx”201) 

DIMENSION  PHASE (3) ,  AMP ( 3) , CKT ( 4 00) , 

>  FN  (nwmx) ,  R 'nwmx) ,  DAT  (nwmx) ,  FNT  (3, nwmx) 

LOGICAL  flag 

REAL  L1,L2,L3,L4,M1,M2,M3,M4 

common  /phase  t (nwmx) .alpha (nwmx) , cl (nwmx) , cd(nwmx) , 

>  cm (nwmx) ,hy (nwmx) 

print*,  '  ' 

print*,  '  ' 

print*,  '  PHASE  SHIFT  ANALYSIS  ' 

PI  =  ACOS (-1.0) 
do  i-1,3 
amp (I) =0 . 0 
end  do 

DO  200,  J  -  1,2 
DO  I  *  1,NPTS 

IF  (J  .It.  1.5)  THEN 
DAT  (I)  -  CL (I) 

ELSE  IF(J  .gt.1.5)  THEN 
DAT ( I )  -  CM(I ) 

END  IF 
END  DO 
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1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 
14  90 


C  READ  POSITION  DATA 

IFUtrans  .EQ.  1)  THEN 
DO  I-l.NPTS 

alpha (I)  -  HY (I ) 

END  DO 

zero  -  .00001 
ELSE 

zero  »  .01 
END  IF 

CALL  AMPLITUDE (DAT, AMP, NPTS,  J) 
c.. DETERMINE  PHASE  SHIFT 
PHI  -  0. 

ERR  -  10000. 

CN  -  -2.0 
itter  -  500 
iCOUNT  -  0 
phi  -  cn*pi/180.0 
nts  -  npts  -  3*ntcycle/4 

nte  «  npts  -  ntcycle/4 

C.. BEGIN  ITTERATION  TO  CONVERGENCE 
30  iCOUNT  -  iCOUNT  +  1 
SUM  -  0 

DO  I  ■  nts,  nte 

FN(I)  -  -AMP(J) *cos (W*T(I)  +  PHI  ) 

R  (I)  -  ABS(FNU)  -  DAT  (I )  ) 

SUM  -  SUM  +  R(I) 

END  DO 

c  print*,  'icount,  phi,  on  err  : ' , icount,phi*180 . /pi, cn, err 

IF(sum  .gt.  err)  THEN 
CN  -  -0.5*CN 
end  if 

PHI  -  PHI  +  CN*PI/ 180.0 
ERR  =  SUM 

IF(  abs(cn)  .gt.  0.001  .and.  icount  .It.  itter  )  GO  TO  30 
PHASE  ( J)  -  PHI*180 . 0/PI 

c  do  i  ■  4, npts 

c  FNT(J,I)  -  AMP ( J) *SIN (W*T (I )  +  PHASE (J) *pi/180 . 0) 

c  end  do 

200  CONTINUE 

open  (unit-15, file-' phase .d' , form-' formatted1 ) 
write (15, 1 (4 f 12 . 5)  ') 

c  >  (  t (i) , alpha (i) ,  fnt (1, i) , fnt (2, i) ,  I-l,npts) 

>  (  t  (i) , alpha  (i) ,  cl  (i)  ,cm(i) ,  I«l,npts) 

Close (15) 

print*,  '  ' 

print*,  'AMPLITUDE;  clamp,  cmamp  ; ' , amp ( 1) , amp (2) 
print*,  'PHASE;  clp,  cmp  :*, 

>  phase (1) +180,  phase(2) 
c  DETERMINE  THE  PROPULSIVE  EFFICIENCY 

PHASE ( 1 )  «  PHASE (l)+pi/lBO.O 
PHASE ( 2 )  -  PHASE (2) *pi/180 . 0 
CDTOT  -  0 
k  «  0 

DO  I  -npts-ntcycle,  npts 
CDTOT  -  CDTOT  +  CD(I)  -  CD(1) 
k  -  k+1 
END  DO 

DBAR  -  CDTOT/K 
DBAR  «  DBAR 

PRINT*, 'AVERAGE  DRAG,  TOTAL  DRAG  :  ',  DBAR, CDTOT 
IF (itrans  .EQ.  1)  THEN 

WEAR  -  -. 5*w*SIN (PHASE (1) ) *AMP (1) 

ETA  -  2*DBAR/WBAR 
ELSE 

WBAR  -  . 5*w*SIN(PHASE (2) ) +AMP (2) 

ETAS  -  DBAR/WBAR 
END  IF 

PRINT*, 'ETAS,  WBAR  :  ', ETAS, WBAR 

C  DETERMINE  AERODYNAMIC  FORCES 
PHASE  (1)  -  PHASE  (1)  +  PI 
AMP(l)  -  AMP(l)  /  2. 0 
IF (itrans  .EQ.  1)  THEN 

Ll-AMP (1) *cos (PHASE (1))/ (pi* (w/2. 0) **2*alpl) 

L2-AMP (1) *sin (PHASE (1) ) / (pi*  (w/2 .0) **2*alpl) 

Ml-  .5 
M2-  0 

c  print*, 'Ll, L2  -  ' , LI, L2, amp (1) 
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1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 


c  print*. ’Ml, M2  -  Ml, M2, amp (2) 

ELSE 

c  print*, 'INPUT  LI,  L2  «• 

c  read (*, * )  L1.L2 

c  L3-2*AMP (1) *cos (PHASE (1) ! / (pi* (w/2 . 0) **2*alpl )  +  .5*L1 

c  L4“2*AMP (1) *sin (PHASE ( 1) ) / (pi* (w/2. 0) **2*alpl)  +  .5*L2 

Ml  m  .  5 
M2  -  0 
M3  -  .375 
M4  -  - (2/W) 

END  IF 
return 
end 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SUBROUTINE  AMPLITUDE (DAT, AMP, NPTS, J) 

DIMENSION  DAT (200) ,AMP (3) , AMP1 (10) ,AMP2 (10) 
n2  -  0 
m2  -  0 
do  i-  1,10 

ampl(i)  -  0 
amp2 ( i )  -  0 
end  do 

DO  I  -  2, NPTS- 1 

I F ( DAT ( I + 1 )  .LT.  0  .AND.  DAT (I )  .LT.  0  )  THEN 
I F ( ABS ( DAT ( I  + 1 ) )  . GT.ABS (DAT (I) ) )  then 
if ( (n2+l) /2. 0  .EQ.  int ( (n2+l ) /2 . 0) )  n2  -  n2+l 
TMP  -  ABS ( DAT ( I + 1 ) ) 
else 
goto  10 
end  if 

if(tmp  .gt.  ampl(n2))  then 
ampl(n2)  -  tmp 
tmp  «0 
end  if 

ELSE 

if ( (n2+l) /2.0  .ne.  int !  (n2+l) /2.0) )  n2  -  n2+l 
I F (ABS ( DAT  ( I  + 1 ) )  .GT.ABS (DAT (I) ) )  THEN 
TMP  «  ABS ( DAT ( I + 1 ) ) 
else 
goto  10 
end  if 

if (tmp  .gt.  amp2(n2))  then 
amp2(n2)  -  tmp 
tmp  =0 
end  if 
end  if 
10  END  DO 

if  (ampl (2)  .gt.  amp2(2))  then 
if (ampl (2)  .It.  amp2(3))  then 
comp  -  ampl (2) 
else 

comp  *  amp2  1 3) 
end  if 
Else 

if(amp2(2)  .It.  ampl(3))  then 
comp  «  amp2(2) 

else 

comp  =•  ampl  (3) 
end  if 
end  if 
do  i  -  2,n2 

if  tabs (ampl (I ) -Comp)  .GT.  .l*comP)  go  to  20 
m2  -  m2  +  1 

amp(j)  =  amp(j)  +ampl(i) 
go  to  30 

20  if (abs <amp2 (I) -comP)  .GT.  .l*comP)  go  to  30 

m2  =  m2  +1 

amp(j)  -  amp(j)  +  amp2(i) 

30  continue 
end  do 

if  (j  .It.  3)  then 

AMP  ( J)  -  AMP  (J)/ (M2) 

else 

amp(j)  «  amp ( j )  /  (2*m2) 

end  if 
return 
END 
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APPENDIX  C 


NS. IN  NAME  LIST 


******************************************************** 
No  dphi/dt,  circulation  is  applied 

213x61  new  expanding  smooth  grid. . . .ITEU=183. . .ITEL*31 


C..  IREAD, 

ITER 

NPRINT 

,  NLOAD 

ODALFA 

0 

2000 

100 

500 

1.0 

C..  POTEN, 

NTPOT,  MPOT,  MDF  KSISO 

,  SO  DIST  -  (Line  : 

false 

1 

1 

1  4 

tf.15 

C. .  ALPHA 

OSCIL 

RAMP 

REDFRE  ALFAMND  ALFAMXD 

2.00 

false 

false 

0.01 

0.001  20.0 

C. .  MACH 

REYNOLD 

vise 

TURBL 

0.200 

2000000. 

true 

true 

C..  TIMEACC  COUR 

NEWTIT 

false 

100 

2 

. . comments 

IREAD:  0:  no  initial  solution 

1:  initial  solution  binary  **  (cp  ends.d  strs.d) 
2:  initial  solution  formatted  (plot3d  form) 

ITER:  #  of  iterations.. 

Ramp:  U*~*“  «•*»)/ (2  A  M  dtau)  ) 

Sinusoid:  {ft  / ( k  M  dtau)) 

NPRINT:  prints  residuals  at  every  nprint  timesteps 

NLOAD:  prints  loads  at  every  nload  timesteps 

OALFA:  prints  out  q  file  at  every  oalpha  degree 


poten: 


ntpot : 
mpot: 

mdf : 
ksiso: 

so  dist: 


false:  no  interactive  solution 
true:  potential  flow  ns  interavtive  solution 

(Inner  and  Outer  Grid) 
timestep  where  interavtive  solution  starts 
interactive  boundary  conditons  are  updated  at 
every  mpot  timestep 

dphi/dt  is  computed  at  every  mdf  timestep 
inner  boundary  is  located  ksiso  grid  points 
inside  the  outer  boundary 

where  the  outer  boundary  is  located  (in  terms  of 
chord  lengths 


ALPHA: 

steady  state  aoa 

OSCIL: 

false: 

true: 

no  sinuzaidal  oscillations 
sinuzaidal  oscillations 

RAMP: 

false: 

true: 

no  straight  ramp  motion 
straight  ramp  motion 

REDFRE: 

Reduced  frequency  based  on  HALF  CHORD,  chord  length  is 
assumed  to  be  1. 
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ALFAMND 


starting  or  min  aoa 


ALFAMXD: 

max  aoa 

VISC: 

false: 

euler  solution 

true: 

ns  solution 

TURBL: 

false: 

laminar  flow 

true: 

b-1  turbulence 

model 

TIMEACC : 

false: 

variable  time 

stepping 

+  + 

steady  state. 

Attached  flow 

true: 

constant  time 

stepping 

*  + 

Ramp  or  Sinusoids 

COUR: 

courant  number  of  the 

timestepping 

50-200-1000 

NEWTIT: 

Number 

of  newton  subiterations 

in  ' 

each  timestep. 

applied  in  unsteady  flows.  (2-3) 


B.  BATCH  &  GRAPHICS  INTERFACE  C0DE8 


***************************************** 

RUN 

1  #  Indigo  batch  for  executables 

2  # !  /bin/csh  -f 

3  #Runs  ns.f  versions  and  postprocesses  for  INDIGO  machines 

4  nohup 

5  # 

6  set  SRC”-/ns/src 

7  set  NS-ns 

8  set  NO-no 

9  * 

10  if  (S#argv  --  0)  then 

11  echo  « 

12  echo  "•  MISSING  argument  :  s,  wp  or 

13  else  if  (SI  —  "s")  then 

14  echo  " 

15  echo  "  RUNNING  -ns-  background. .. " 

16  echo  " 

17  echo  "  "  >  $NO  ;  date  »  SNO  ;  echo  "  "  »  $NO  ;  \ 

18  cat  ns. in  »  SNO  ;  \ 

19  (timex  nice  -3  SSRC/SNS  <  ns. in  »&  SNO)  »  SNO.t  ;echo  *  "  »  SNO 

20  cat  SNO.t  »  SNO  ;  date  »  SNO  ;  \ 

21  echo  "•  ns  in  Scwd  has  RUN.."  ;  rm  SNO.t  & 

22  else  if  ($1  »»  "wp")  then 

23  if  (Slargv  !«  2)  then 

24  echo  "  " 

25  echo  "  Missing  the  INPUT  file  argument..  " 

26  else 

27  echo  "  " 

28  echo  "  Writing  PLOT 3D  files.." 

29  mv  $2  inf;  $SRC/wp3d  ;  mv  inf  S2  ;echo  "•  Written.."  i 

30  endif 

31  else  if  ($1  “  "cl")  then 

32  SSRC/wrcl 

33  else 

34  echo  " 

35  echo  ""G  WRONG  argument,  try  s,  wp  or  cl...." 

36  endif 

************************************************************************** 


RUNS 

1  C...  Cray  batch  executable 

2  c  Submits  a  batch  request  to  Cray  unicos  network  queing  system 

3  #QSUB  -q  prem  -IT  99:59:59  -1M  64Mw 

4  set  SRC-ns/src 

5  set  NS=ns 

6  set  NO-ns/no 
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7 

8 
9 

10 

11 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


echo  "  "  >  $NO  ;  date  »  $NO  ;  echo  "  *  »  SNO  ;  \ 

cat  ns/ns. in  »  $NO  ;  \ 

(  SSRC/SNS  <  ns/ns. in  »  SNO  )  »  $NO.t  »  echo  "  ■  »  SNO  >  \ 

cat  SNO. t  »  SNO  t  date  »  SNO  ;  \ 
exit  0 


WV3D.F 

PROGRAM  WP3D 

C. . Reads  binary  last  iteration  file  and  writes  it  in  plot3d  format  with  Rotated 
C...  Grid 

parameter  (imax-250, kmax-100) 

dimension  q (4, imax, kmax) , x (imax, kmax) , z (imax, kmax ) 

>  ,xr (imax, kmax) , zr (imax, kmax) 
character  filnq*15, alpn* 10, filngr*15 

alpn  -  '0123456789' 
pi  -  3.14159 
c. . read  the  grid 

open  (7, file-'/d3/ johnston/ns/grid. in'  .status* 'old' , 

+  form* 'formatted') 

read  (7,*)  imx,  kmx,  iws,  iwe 

read  (7,*)  ( (x  < i , k) ,  i  *  1,  imx),  k  -  1,  kmx  ), 

>  ((z(i,k),  i  *  1,  imx),  k  *  1,  kmx  ) 
close  (7) 

open  (8, file- 'inf ' , status- 'old' , form- 'unformatted' ) 

DO  100  II  -  9,100,2 

read  {8, end-101)  imx,  kmx 

read  (8)  amach,alfad, reynph, time, itn 

read  (8)  (((  q(l,i,k),  i«l,imx),  k-l,kmx),  1-1,4) 

C.. extract  character  string  for  iteration  counT 
i6  -  itn/100000  +  1 
i5  -  (itn  -  (i 6—1) ‘100000) / 10000  +  1 
i4  -  (itn  -  ( i 6— 1 ) *100000  -  (i5-l) *10000) /1000  +  1 
i3  -  (itn  -  ( i 6— 1 ) *100000  -  (i5-l>*10000 

>  -  { i4  —  1 ) *1000) /100  +  1 

i2  -  (itn  -  ( i 6—1 ) *100000  -  (I5-l)*10000  -  (I4-l)*1000 

>  -  ( i 3— 1 ) *100  ) / 10  +  1 

il  -  (itn  -  ( i 6— 1 ) *100000  -  (i5-l)*10000  -  (I4-l)*1000 

>  -  (i3-l) *100  -  ( i 2— 1 ) * 10  )  +  1 

filnq  «  ’q'//alpn(i5:i5)//alpn(i4:i4)//alpn(i3:i3)// 

>  alpn  (i2:i2! //alpn (il: il)  /  / ' .  fmt  ’ 
filngr  -  ’gr'//alpn(i5:i5)//alpn(i4:i4)//alpn(i3:i3)// 

>  alpn (i2:i2) //alpn (ilsil)//' .fmt’ 
c. .write  the  qfile 

open  (ii, file-filnq, form-' formatted' ) 
write(ii,*)  imx, kmx 

write(ii, ' (5el5.7) ')  amach, al fad, reynph, time 
write (ii, ' (5el5.7) ') 

>  (((  q(is,i,k) ,  i-1,  imx  ),k-l,kmx  ),  is-1,4) 
close (ii) 

c. .write  the  rotated  grid 

dalfa  -  alfad  *  pi/180, 
ca  -  cos (  dalfa  ) 
sa  — sin(  dalfa  ) 
do  10  i-1,  imx 
do  10  k-l,kmx 

xr(i,k)  -  x(i,k)  *  ca  -  z(i,k)  *  sa 
zr(i,k)  -  z(i,k)  *  ca  +  x(i,k)  *  sa 
10  continue 

ig  -  ii  +  1 

open  (ig, file-filnGR, form- ' formatted' ) 
writetig,*)  imx, kmx,  iws,  iwe 
write(ig, ' (5el5.7) ') 

>  ((xr(i,k),  i-1,  imx),  k  -  1,  kmx  ), 

>  (<zr(i,k),  i-1,  imx),  k  -  1,  kmx  ) 
close (ig) 

100  Continue 

101  close(8) 

STOP 

END 

WRCL.r 

PROGRAM  wrcl 

***  auto-writes  all  files  given  dtau  and  niter 
***  includes  Cf  data 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


***  Corrects  NS.F  grid/ load  error 
C. .write  alpha  and  cl  from  loads. d  file 
parameter  (idim-215  ) 

dimension  cptidim, idim) ,  cl (idim) ,cd(idim) , cmtidim) , time (idim) , 

>  alpha  (idim) ,  civ  (idim) ,  cdv  (idim) ,  cmv  (idim)  ,  clw  (idim)  ,cdw  (idim) , 

>  cmw(idim),  x  (idim,  idim) ,  z  (idim,  idim) , cf  (idim,  idim) 
character  fname*80 

*  Print*, 'input  niter  -  ' 

*  read*, niter 

*  print*, 'input  dtau  -  ' 

*  read*, dtau 
print*,'  ' 

print*,'  Enter  LOAD  file  name  :>' 
read (*, ' (a80) ' )  fname 

open (2, file-fname, form- 'format ted' , status- ' old ' ) 
do  it  -  1,  1000 

read (2,*, end-21) iter, alpha (it) ,time (it) , fsmach, re, itel, iteu, 

>  cl  (it)  ,cd  (it) ,  cm(it) ,  clv(it)  ,cdv(it)  ,cmv(it) , 

>  (cp(i),  i-1, iteu-itel+1) , 

>  (cf(i),  i-l,iteu-itel+l> 
enddo 

21  close  (2) 

open (11, file-'/d3/ johnston/ns/grid. in' , form- 'formatted' , 

+  status-'old' ) 

read  (11,*)  imx,  kmx,  iwks,  iwke 

read  (11,*)  <(x(i,k),  i-1,  imx),  k  -  1,  kmx  ), 

>  ((z(i,k),  i-1,  imx),  k  -  1,  kmx  ) 
close (11) 


do  30  itt  -  l,it-l 

cn-0. 

ch-0. 

cmp-0. 

ralfa  -  alpha (itt) *pi/180. 

do  25  i-itel+l,iteu 

dx  -  x(i+l)  -  x(i-l,l) 

dz  -  z (i,  1)  -  z (i-1, 1) 

avcp  -  .  5*  (  cp (i, itt)  +  cp(i-l,itt)  ) 

cn  -  cn  -  avcp*dx 

ch  -  ch  +  avcp*dz 

zave  «  . 5*  (z (i,  1)  +  z(i-l,l)  ) 

xave  -  .5*  (x (i,  1)  +  x(i-l,l)  ) 

C. .  Cm  about  .25  x/c 

cmp  -  cmp  +  avcp*  i  dz*zave  +  dx* (xave-. 25)  ) 
25  continue 

clw(itt)  -  cn*cos (ralfa)  -  ch*sin (ralfa) 
cdw(itt)  -  cn*sin (ralfa)  +  ch*cos (ralfa) 
cmw(itt)  -  cmp 
30  continue 


open (3, file-'cla.d' , form- ' formatted ' ) 

write(3, '  (2fl0.5) ')  (  alpha(i),  -clw(i),  i  -  l,it-l) 

open (4, file-'clt .d' , form- ' formatted' ) 

write(4, '  (2f  10 . 5)  ')  (time  (i) /niter/dtau,  -clw(i),  i  -  1,  it — 1 ) 

open (5, file- 'cda . d’ , form-' formatted' ) 

write (5, ' (2f 10. 5) ' )  (  alpha(i),  -cdw(i),  i  -  l,ic-l) 

open (6, file- 'cdt .d' , form-' formatted') 

write(6, '  (2fl0.5) ')  (time  (i) /niter/dtau,  -cdw(i),  i  -  l,it-l) 

open  ( 7 ,  :T i  1  e- '  cma .  d ' ,  form- '  formatted ' ) 

write(7, '  (2fl0.5) ')  (  alpha(i),  -cmw(i),  i  -  l,it-l) 

open (8, file-'cmt .d' , form-' formatted' ) 

write  (8, '  (2fl0.5) ' )  (time (i) /niter/dtau,  -cmw(i),  i  »  l.it-1) 
open (9, f i le» 'cp.d' , form- ' formatted' ) 

write  (9, '  (2f  10. 5) ' )  (  x(i,l),  -cp(i,it-l),  i  -  itel, iteu) 
open (10,file»'ef.d', form- 'formatted') 

write (10, ' (2f 10.5) ' )  (  x(i,l),  cf(i,it-l),  i  -  itel, iteu) 

STOP 

END 


214 


Appendix  C 


HOu>a>'Jo»y*u»MPo»£>a)«J(y\0’**uK)MO^a)--J»U'^wN)HO«oa)*JftUi*>uwHO«©«J<j>utAu»K)MOioo>*Jo>u*<»WN)HO«>®'«J®>y'^wM>- 


VLCOK.V 


PROGRAM  PLCON 

C. . reads  gr..  and  q  ..  solution  files  and  plots  contours 
C. .MUST  COMPILE  AND  LINK  THIS  PROGRAM 
**  177  -c  plcon. f 

**  f77  plcon. o  /usr/local/bin/nasadig. a  -o  plcon 

parameter  (idim-213  , kdim-61  ) 

dimension  q(idim,  kdim,4) ,  xy  (idim,  kdim, 2) ,  ax(idim) ,ay(idim) 

>  , ybl(kdim),  vbl(kdim),  func  (idim,  kdim) 
character  yn*l, title*80, fname*80,  text*80 
integer*!  ltitle(20) 
equivalence  (title,  ititle(l)  ) 
data  xumin,xumax,yumin  /-0.75,  1.50,  -0.75  / 

c  data  xumin.xumax.yumin  /-0.1,  1.25,  -0.35  / 

>  ,xlen,ylen/3.25,  2.5  / 

>  ,gam  / 1 . 4 / 

C. .nasadig  calls 

print*,'  Enter  Out. PS  file  name  :>' 
read (*, 102)  FNAME 

opcnllO,  file  -  fname, form-' formatted* , status-' unknown* ) 

CALL  postsc(lO) 

c  call  device (ktype,xpage,ypage) 

CALL  PAGE (11.,  8.5) 
c  CALL  HRDrot( 'COMIC') 

c  CALL  HRDrotl 'MOVIE') 

CALL  HRDSCL ( ’ NONE ' ) 

CALL  NOBord 
CALL  NOCHEK 
CALL  DUPLex 
CALL  HEIGHT (0.08) 

CALL  f rmwid (0.012) 

CALL  crvwid (0.001) 

CALL  MARGIN (0. ) 

print*, '  Input  Ramp-1  or  Sinusoid-2  or  SS-9* 
read*, j j 

CC  View  area  of  interest  definition 
WRITE (*,105)  XUMIN, XUMAX, yumin 
105  FORMAT (/'  xumin,  xumax,  yumin  :  ', 

>  •(',  3F7.2, '  )','  Redefine  ?  (n> : > '  ) 

READ(*,101)  YN 

IF  (YN.EQ. 'Y'  .OR.  YN.EQ. 'y' )  then 
print*, 'Input  xumin,  xumax,  yumin  * 

READ(*,*)  XUMIN, XUMAX, yumin 
endif 

C..read  caption  (Placed  at  bottom  of  page  in  Landscape  mode) 
c  print*,'  Any  caption  for  the  plots  ?.  (caption)  :>' 

c  read(*, 102, END-10)  TITLE 

102  format (A80) 
c  TITLE-  '  ' 

C..read  grid 

alphao  -  0. 

alphao  -  0. 

c  FNAME  -  'grid. in' 

print*,  '  ' 

c  print*,'  Default  grid  file  is  grid. in  Is  this  o.k.?  (y  or  n)  ' 

c  read (*,101)  yn 

101  format (al) 

c  if(  yn  .eq.  'n'  .or.  yn  .eq.  'N')  then 

13  print*,'  Enter  GRID  file  name  :>’ 
read (*, 102)  FNAME 
c  endif 

OPEN ( 1 , FI LE- FNAME , FORM- ’ FORMATTED ' , STATUS- ' OLD ' ) 
read(l,*)  imx, kmx, iws, iwe 
read(l,*)  ( (xy  (i,  k,  1) ,  i-1,  imx  ),k-l,kmx  ), 

>  ( (xy  (i,  k, 2)  ,i«l,imx  ),k-l,kmx  ) 
closed) 
ile  -  imx/2  +  1 

c  fix  the  leading  edge  and  trainling  edge  points, 
c  ile  -  31 

ite  »  183 
C..read  "q"  file 

PRINT*,'  Enter  Q  file  name  :>' 

72  READ (*, 102)  FNAME 

7  3  OPEN ( 2 , FI LE- FNAME , FORM- ’ FORMATTED ' ,  STATUS- ' OLD ’ ) 

74  10  read (2,*, end- 1000)  imx, kmx 
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75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
66 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 
2.16 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 


read{2,*)  fsmach, alpha, re,  time 
read (2,*) 

>  (((  q(i,k,  is),i-l,imx  ),k-l,kmx  ),  is-1,4) 

C.. ROTATE  GRID  WRT  ALPHA  (NOT  required  for  ns.f) 
c  CALL  ROTXY (ALPHA-alphao,  IMX,  kMX,XY) 

alphao  -  alpha 

c.. extract  airfoil  coordinates 
ii  -  0 

do  i  -  1,  imx 
ii  -  ii+1 

ax(ii)  -  xy(l,l,l) 
ay  (ii)  -  xy(I,l,2) 
enddo 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PRINT*,  •  * 

PRINT*,  *  Angle  of  ATTACK  -  ',  ALPHA 


30  PRINT*,  •  • 

PRINT*,  *  Choose  the 
PRINT*,  '  * 

PRINT*,  * 

PRINT*,  • 

PRINT*,  * 

PRINT*,  • 

PRINT*,  * 

PRINT*,  • 

PRINT*,  • 

PRINT*,  • 

PRINT*,  *  1 
READ(*,*)  I FUN 
do  999  ifun  »  1,4 
fmax  «  -10000. 
fmin  »  10000. 

NCON  •  25 

IF  (IFUN  .EQ.  8)  THEN 
goto  13 
endif 


contour  function  :>' 

1  :  Density1 

2  :  Pressure1 

3  :  Mach  Number* 

4  :  Vorticity* 

5  :  Mass-flux* 

6  :  NEXT  Time  step 

7  s  EXIT* 

8  :  Next  q-file* 


IF  (IFUN  .EQ.  1)  THEN 
C.. ASSIGN  DENSITY 

print*, 'Density' 

DO  91  k  -  1,  IcMX 
DO  91  I  -  1, IMX 
FUNC(I.k)  -  Q(I,  k,  1) 
fmin  -  min(func(i,k),  fmin) 
fmax  -  max !func(i, k) ,  fmax) 

91  continue 

coninc  -  (fmax-fmin) /neon 
ELSEIF (IFUN  .EQ.  2)  THEN 
C. . EVALUATE  Pressure 

print*, 'Pressure* 

DO  92  k  -  l.kMX 
DO  92  I  -  1, IMX 

VEL2  -  (  q(i,k,2)**2  +  q(i,k,3)**2  )/Q(I,k,l) 

FUNC(I,k)  -  gam*  (gam-1.)*  (  Q(I,k,4)-.5*VEL2  ) 
fmin  -  min (func (i, k) ,  fmin) 
fmax  «  max (func (i, k) ,  fmax) 

92  continue 

coninc  «  (fmax-fmin) /neon 
ELSEIF  (IFUN  .EQ.  3)  THEN 
C.. EVALUATE  MAch  NUMBER 
print*, 'Mach' 

DO  93  k  -  1, kMX 
DO  93  I  -  1, IMX 

VEL2  -  (  q(i,k,2)**2  +  q(i,k,3)**2  )  /Q(I,  k,  1)  **2 

PP  -  (GAM-1. )*(  Q(I,k,4)-.5*VEL2*Q(I,k,l)  ) 

AL2  -  GAM*PP/Q(I,  k,  1) 

Func (i, k)  -  SQRT (VEL2/AL2) 
fmin  «  min (func (i, k) ,  fmin) 
fmax  •  max (func (i, k) ,  fmax) 

93  continue 


coninc  «  (fmax-fmin) /neon 
ELSEIF (IFUN  .EQ.  4)  THEN 
C.. EVALUATE  VORTICITY  FIELD 
print*, 'Vorticity' 
do  41  k«2, kmx-1 
km-k-1 


kp-k+1 

do  41  i«2,imx-l 
ip-i*l 
im»i-l 
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xx i  -  0.5  *  t  xy (ip,  k,  1)  -  xy(im,k,l>  ) 

zxi  -  0.5  *  (  xy(ip,k,2)  -  xy(im,k,2)  ) 

xz«  -  0.5  *  (  xy (i,  kp,  1)  -  xy(i,km,l)  ) 

zze  -  0.5  *  (  xy(i,kp,2)  -  xy(i,km,2)  ) 

rjacob  -  1 ./(  xxi*zze  -  xze*zxi  ) 
xix  -  rjacob  *  zze 
xiz  —rjacob  *  xze 
zex  --rjacob  *  zxi 
zez  -  rjacob  *  xxi 

u  ze  -  0. 5*  (  q(i,kp,2)/q(i.kp,l)-q(i,km,2)/q(i,km,l)) 
w~ze  -  0 . 5*  (  q(i,kp,3)/q(i,kp,l)-q(i,km,3)/q(i,  km,  1) ) 
u“xi  -  0 . 5*  (  q(ip,k,2)/q(ip,k,l)-q(im,k,2)/q(im,k,l)  ) 
tTxi  -  0. 5*  (  q(ip,  k,  3)  /q(ip,  k,  1)  -q(im,  k,  3)  /q!im,  k,  1)  ) 
dudz  -  u_xi*xiz  +  u  ze*zez 
dwdx  -  w  xi*xix  ♦  w”ze*zex 
func(i,kT  -  dudz-dw3x 
fmin  -  min(func(i,  k) ,  fmin) 

{max  -  max (func (i, k) ,  {max! 

41  continue 

do  42  i  -  l,imx 

42  funcli, 1)  -  fundi, 2) 
fmax  -  f max/ 100. 
fmin  -  fmin/100. 

coninc  -  (fmax-fmin) /neon 
ELSEIFUFUN  .EQ.  5)  THEN 
C.. EVALUATE  MASS-FLUX  FUNCTION 
Cl  -  0.5 
k  -  1 

fundi, k)  -  0. 

DO  I  -  1, imx 

FUNC ( I ,  k )  -  FUNC(I-l.k)  ♦ 

>  Cl*  (  <Q(I,k,2)  +  Q{I-l,k,2))*  (XY  (I,  k,  2)  -XY  (1-1,  k,  2) )  - 

>  (Q  ( I ,  k,  3)  ♦  Q(I-l,k,3))*  (XY  (I,  k,  1)  -XY  (1-1,  k,  1) )  ) 
enddo 

c  do  i  -  iteu,  imx 

c  func  (i,  k)  -  func(imx-i+l,k) 

c  enddo 

DO  1*1, IMX 
DO  k-2,  kMX 

FUNC (I ,  k)  -  FUNC (I, k-1)  + 

>  Cl*(  (Q(I,  k ,  2 )  +  Q(I,k-l,2))*  (XY  (I,  k,  2)  -  XY(I,k-l,2))  - 

>  (Q(I,  k,  3)  ♦  Q(I,  k-1, 3)  )*  (XY (I ,  k ,  1 )  -  XY(I,k-l,l))  ) 
fmin  -  min (func (i, k) ,  fmin) 

fmax  -  max (func (i,k),  fmax) 

enddo 

enddo 

do  k-1, kmx 

func(imx,k)-  func(l,k) 
end  do 

coninc  -  fsmach/50. 
neon  -  (fmax-fmin) /coninc 
ELSEIFUFUN  .EQ.  6)  THEN 
goto  10 

ELSEIFUFUN  .EQ.  7)  THEN 


goto  1000 
ELSE 

PRINT*,  '  WRONG  Selection . * 

goto  30 
ENDIF 

31  PRINT*,  '  ' 

PRINT*,  '  Function  Min  a 

PRINT*,  *  ' 

PRINT*,  '  Enter  NCON  :>' 

READ(*,*)  NCON 
conmin  -  fmin 
conmax  -  fmax 
fmax  -  -10000. 
fmin  -  10000. 

NP  -  NP+1 
MNP  -  MOD(NP,  4 ) 

IF(MNP.EQ.l)  THEN 
X0  -  2.37 
Y0  -  4.31 
CALL  frmwid (0.012) 

CALL  crvwid(O.OOl) 

ELSEI F (MNP . EQ . 2 )  THEN 
X0  -  6.12 
Y0  -  4.31 


Function  Min  and  Max  :>  ', fmin, fmax 
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ELSEIF(MNP.EQ.3)  THEN 
X0  -  2.31 
YO  •  1.31 

ELSEIF(MNP.EQ.O)  THEN 
XO  -  6.12 
YO  -  1.31 
ENDIF 

DUY  -  YLEN* (XUMAX-XUMIN) /XLEN 
YUMAX  -  YUMIN  +  DUY 
YS  -  YLEN/  (YUMAX-YUMIN) 

XS  -  XLEN/ (XUMAX-XUMIN) 

CALL  ORIGIN (XO,YO) 

CALL  SETSUB (XLEN, YLEN) 

C  CALL  XLABELC  *,1) 

CALL  AXES 2 D (XUMI N , XUKAX-XUHI N , XUMAX ,  YUMIN,  YUMAX-YUMIN,  YUMAX) 
CALL  FRAME 
CALL  MARGIN<0.) 

DO  50  N  -  l.NCON+l 

CONV  -  CO»MIN  ♦  coninc*  (N-l) 

if(  ifun  .aq.  4  .and.  abs(conv)  .It.  .50)  goto  50 
CALL  CONTOUR (FUNC.XY, IMX, kMX, CONV, 

>  XUMIN  -  ABS (XUMIN) *0 . 5  ,XUMAX*1.5, 

>  YUMIN  -  ABS  (YUMIN)  *0.5  ,YUMAX*1.5,  NCELL) 
iftncall  .na.  0)  than 

fmin  -  min (fmin, conv) 
fmax  -  max (fmax, conv) 

c  print*,  *n,  conv,  ncall  s',  n,conv,ncall 

andif 

50  CONTINUE 
c. .nomanclaatura 

CALL  HEIGHT (0.08) 

if (  ifun  .aq.  1)  CALL  TXTMSG ( ’DENSITYS ’ , 100, 0. 2,  YLEN+0.1) 
if (  ifun  .aq.  2)  CALL  TXTMSG C PRESSURES ', 100, 0. 2,  YLEN+0.1) 
if (  ifun  .aq.  3)  CALL  TXTMSG ( 'MACH  NUMBERS ', 100, 0. 2,  YLEN+0.1) 
if (  ifun  .aq.  4)  CALL  TXTMSG ( ' VORTICITYS ',100,0.2,  YLEN+0.1) 
if (  ifun  .aq.  5)  CALL  TXTMSG ( 'MASS-FLUXS 1 , 100, 0. 2,  YLEN+0.1) 
call  defalf ('L/CGREEK') 

call  txtmsgCa  “S', 100,  xlan-0.15,  ylan-0.2) 
call  raset ('DEFALF') 
call  raalno  (alpha, 1,  'ABUT', 'ABUT') 
call  height (0.05) 
if  (  ifun  .ne.  5  )  than 
c  was  0.24 

call  txtmsg  ('MIN  -  $',100,  0.05,0.16) 
call  raalno  (fmin,  2,  'ABUT', 'ABUT' ) 
call  txtmsg  ('MAX  -  S', 100,  0.05,0.05) 
call  raalno  (fmax,  2,  'ABUT ', 'ABUT * ) 

CALL  HEIGHT (0.08) 

call  txtmsgCM  -S', 100, xlen-3. 1, ylen-. 2  ) 
call  raalno  (fsmach.2,  'ABUT', 'ABUT') 
if  (jj  .aq.  1)  then 
CALL  HEIGHT (0.08) 

call  txtmsg  ( 'RanpS ', 100,xlen-2. 95,ylen-.35) 

CALL  HEIGHT (0.05) 

call  txtmsg  (' (A-0.005)S',100,xlen-2.97,ylen-.46) 
alseif  (jj  .aq.  2)  then 
CALL  HEIGHT (0.08) 

call  txtmsg  CSinusoidS', 100, xlen-3. 05, ylen-. 35) 

CALL  HEIGHT (0.05) 

call  txtmsg  ('  (k-0.05)S', 100, xlen-3. 05, ylen-. 46) 

andif 

c  call  txtmsg  {'TIME  •  S', 100,  0.6,0.15) 

c  call  raalno  (TIME,  2,  'ABUT', 'ABUT') 

and  if 

C. .draw  airfoil.. 

call  curve  (ax, ay,  ii,  0) 

IF (MNP  .EQ.  1)  then 
call  height (0.08) 

c  call  txtmsgCMach  -S', 100,  0.,  -4.1  ) 

c  call  realno  (fsmach,2,  'ABUT', 'ABUT') 

c  call  txtmsg ( ' ,  Re  -S', 100,  'ABUT',  'ABUT'  ) 

c  call  realno  (re,l,  'ABUT' , 'ABUT' ) 

c  call  txtmsg (ititle, 100,  0.,  -4.4  ) 

call  andsub{0) 
alseif (  mnp  .aq.  0)  then 
call  stoplt (0) 
else 

call  andsub(0) 
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«ndif 

c  PRINT*,'  Do  you  want  to  change  the  increament.?  <n)  :>' 
c  READ!*, ' (al) ')  YN 

c  IF(YN.EQ. ' Y '  .OR.  YN.EQ.'y')  GOTO  31 

c  GOTO  30 

999  continue 

1000  IF (MNP  .ne.  0)  call  stoplt(O) 

CALL  FINPLT 
CLOSE (2) 

CLOSE (10) 

STOP 

END 


SUBROUTINE  CONTOUR  (F,XY, IMX,  JMX, CONV, 

>  XMIN, XMAX, YMIN, YMAX, NCELL) 

C.. FINDS  CONTOUR  LINES  AND  PLOTS 

parameter  (idim-213  ,  jdim»61  ) 

DIMENSION  Fd  DIM,  JDIM)  ,XY  (I DIM,  JDIM,  2) ,  X  (2) ,  Y  (2) 

NCELL  -  0 

DO  50  I  -  1.  IMX-1 

IP  -  1+1 

DO  50  J  -  1,  JMX-1 

JP  -  J+l 

XI  -  XY ( I , J , 1 ) 

Y1  -  XY (I, J, 2) 

IF (XI. GT.XMAX.OR.X1.LT. XMIN. OR. Yl.GT.  YMAX. OR. Yl.  1 .YMIN) 

>  GOTO  50 

X2  -  XY  (I,  JP,  1) 

Y2  -  XY  (I,  JP,2) 

X3  -  XY  (IP,  JP,  1) 

Y3  -  XY  (IP,  JP,  2) 

X4  -  XY(IP,  J,  1) 

Y4  -  XY  (IP,  J,  2) 

FI  -  F (I, J) 

F2  -  F(I,  JP) 

F3  -  F(IP,  JP) 

F4  -  F(IP,J) 

NP  -  0 

IF( (CONV. GT. FI. AND. CONV. LT.F2)  .OR. 

>  (CONV. LT. FI. AND. CONV. GT.F2)  )  THEN 
NP  -  NP+1 

X (NP)  -  X2  -  (F2-CONV) * (X2-X1) / (F2-F1) 

Y (NP)  -  Y2  -  (F2-CONV) * (Y2-Y1) / (F2-F1) 

ENDIF 

IF( (CONV. GT.F4. AND. CONV. LT. F3)  .OR. 

>  (CONV.LT.F4.AND.CONV.GT.F3)  )  THEN 
NP  -  NP+1 

X (NP)  -  X3  -  (F3-CONV) * (X3-X4 ) / (F3-F4) 

Y (NP)  -  Y3  -  (F3-CONV) * (Y3-Y4 ) / (F3-F4) 

ENDIF 

IF(NP.EQ.2)  THEN 

CALL  RELVEC (  X(l) ,  Y(l)  ,X(2)  ,Y(2)  ,0) 

NCELL  -  NCELL+1 
ELSE 

IF ( (CONV. GT.F2. AND. CONV.LT.F3)  .OR. 

>  ( CONV. LT.F2. AND, CONV. GT.F3)  )  THEN 
NP  -  NP+1 

X (NP)  -  X3  -  (F3-CONV) * (X3-X2) / (F3-F2) 

Y (NP)  -  Y3  -  (F3-CONV) + (Y3-Y2) / (F3-F2) 

IF (NP.EQ. 2)  THEN 

CALL  RELVECI  X (1) , Y (1)  ,X(2) ,  Y (2) ,  0) 

NCELL  -  NCELL+1 
ENDIF 
ENDIF 

IF(NP.EQ.l)  THEN 
NP  -  NP+1 

X (NP)  -  X4  -  (F4-CONV) * (X4*X1) / (F4-F1) 

Y (NP)  -  Y4  -  (F4-CONV) + (Y4-Y1) / (F4-F1) 

CALL  RELVECt  X (1) , Y (1)  ,X(2) ,  Y(2)  ,0) 

NCELL  -  NCELL+1 
ENDIF 
ENDIF 

50  CONTINUE 
RETURN 
END 

C - 
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387  SUBROUTINE  ROTXY  (  ANGLE, IHX,JMX,XY  ) 

388  parameter  (idira-213  , jdim-61  ) 

389  DIMENSION  XY (IDIM, JDIM, 2) 

390  ROTANG  >  ANGLE*3. 14159/180. 

391  CA  -  COS (ROTANG) 

392  SA  -  -SIN (ROTANG) 

393  DO  10  I  -  l.IMX 

394  DO  10  J  -  1,  JMX 

395  XC  -  XY ( I , J , 1 ) 

396  YC  -  XY  (I,  J,2) 

397  XY(I,J,  1)  -  XC*CA  -  YC*SA 

398  10  XY (I, J, 2)  -  YC*CA  ♦  XC*SA 

399  RETURN 

400  END 


c. 


31 

32 

33 

34 

35 

36 

37 

38 


PROGRAM  NS.r  80DCE  CODE 

program  as  sot2d 

************  *** ***************. 


c**«. •••••*•*• 
c  by 

c  John  A.  Ekaterinaris 

c  nasa,  ames  research  center 

c  march,  1990 

c  modified  by 

c  I.H.  Tuncer 

c  nps 

c  apnl  1992 

c  solution  of  the  2-D  unsteady,  thin-layer  navier-stokes 
c  equations  in  a  time-accurate  manner, 

c  characteristics  of  the  code: 

c  1)  factored,  iterative,  iirclicit  algorithm 

c  2)  high-order  accurate  upwind  difference  scheme  (third  order) 
c  3)  baldwin-lomax  turbulence  model 

c  4)  patched  and  overlaid  grids 

c  5)  the  code  is  almost  completely  vectorized  for  the  cray-ymp 

c* ***************************************************************** i 


1 

c. . "corns. f" 

2 

parameter  (nia  «  213,  nka  - 

61) 

3 

common  /alpar 

/oscil,  ramp  , 

redfre,  omega, 

4 

> 

alfa  ,  alfad. 

alfamn,  alfamx 

5 

logical 

oscil,  ramp 

6 

common 

/gamvl 

/gamma. 

gmm, 

gmp. 

7 

> 

rgamma , 

rgmm, 

rgmp. 

8 

> 

gmbygp 

9 

common 

/iksri 

/imx (2) , 

kmx (2) , 

10 

> 

imxl  (2) , 

kmxl (2) , 

11 

> 

imx2  (2) , 

kmx2  (2) 

12 

common 

/ikwk 

/iwks  (2) , 

iwke (2) 

13 

common 

/infvl 

/rinf , 

uinf , 

vinf , 

14 

> 

winf , 

pinf. 

einf , 

15 

> 

tinf , 

amach. 

pratio 

16 

common 

/load 

/cl,  cd,  cm,  civ,  edv,  cmv 

17 

common 

/nparm 

/niter, 

newt it, loop. 

iter, itr. 

18 

> 

nprint, iread, 

nload. 

odalfa,oalfa 

19 

common 

/tmval 

/timeacc,  time. 

dtau.dt  (nia,nka) 

,cour 

20 

common 

/visci 

/vismu(nia,nka) 

,  turmu (nia, nka) 

21 

common 

/viavl 

/reynnu, reynph. 

prkin. 

prtur 

22 

common 

/vispar/visc,  turbl 

23 

common 

/poten  /  poten,  ntpot. 

mpot,  mdf,  ksi,  kso, 

ksiso,  sodist 

24 

logical 

vise,  turbl. 

poten,  timeacc 

25 

common 

/grid 

/  x(nia,nka),  z(nia,nka) 

26 

common 

/flow 

/  q(4,nia,nka) 

27 

common 

/dflow 

/  qd(4,nia,nka) 

28 

common 

/jacob  /  aja(nia,nka) 

29 

common 

/metres/  xix (nia,nka) , 

xiz (nia, nka) ,  xit (nia, nka) , 

30 

> 

zex (nia,nka) , 

zez (nia, nka) ,  zet(nia,nka) 

pi  -  4.*atan(l.) 
call  data 
do  10  itr  -  1,  niter 
iter  -  iter  +  1 
time  -  time  dtau 
alfaold  -  alfa 
if(  oscil  )  then 

freq  -  2.*redfre*uinf 
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alia  -  alfamn  +  0.5*<alfamx-alfamn)*(l.-  cos (freq*ti»e) ) 
omega  -  fraq  *  0. 5* (alfamx-alfamn) *sin (f req*time) 
call  grmove (alfa-alfaold) 
elseif(  ramp  )  than 
omega  -  2.*redfre*uinf 
alfa  «  alfamn  +  omega ’time 
1 £ (  alfa  .gt.  alfamx)  than 
alfa  -  alfamx 
omega  -  0. 
andif 

call  grmove (alfa-alfaold) 
andif 

alfad  -  alfa  *  (180. /pi) 
c.. update  outer  be 
c  if  (potan  )  call  nspot 

call  step 

iff  abs (alfad-oalfa)  .gt.  0.999*odalfa  )  then 
call  qio(10) 
oalfa  -  alfad 
andif 

if (modfiter, 1000)  .eq.  0  .or.  itr  .eq.  niter)  call  qio(0) 

10  continue 

c  if(  .not.  poten)  then 

c  open (unit-33, file-'pres.d',form-*formatted') 

c  kso  -  47 

c  sso  -  0. 

c  do  i  «  2,  imx(l) 

c  ssoo  -  sso  *  sqrt (  (x (i, kso) -x (i-1, kso) ) **2  + 

c  >  (z  (i,  kso) -z  (i-1,  kso) )  **2  ) 

c  pres  -  gmm*  (  q(4,i,kso) 

c  >  -  .5*(q(2,i,kso)**2  +  q(3,i,kso)**2)/q(l,i,kso)  ) 

c  sso  -  ssoo 

c  write (33, ' (2el5.7) ' )  sso,  pres 

c  enddo 

c  endif 

close (8) 
close  (9) 

STOP 

END 

c  include  'nspot. f 

C - - — - - 

subroutine  data 
include  ' corns. f' 
pi  -  4.*atan(l.) 
read  (5,*) 
read  (5,*) 
read  (5,*) 

c..read  top  comments 
read  (5,*) 

read  (5,*)  iread,  niter,  nprint,  nload,  odalfa 
read  (5,*) 

read  (5,*)  poten,  ntpot,  mpot,  mdf,  ksiso,  sodist 
read  (5,*) 

read  (5,*)  alfad,  oscil,  ramp,  redfre,  alfamnd,  alfamxd 
read  (5,*) 

read  (5,*)  amach,  reynph,  vise,  turbl 
read  (5,*) 

read  (5,*)  timeacc,  cour,  newtit 
c. .  read  in  grid 

open (unit-11,  file-' grid. in', form-' formatted' , status-' old' ) 
nt  -  1 
ng  -  1 

read  (11,*)  imx(nt),  kmx(nt),  iwks(l),  iwke(l) 

read  (1),*)  ((x(i,k),  i  -  1,  imx(l)),  k  -  1,  kmx(l)  ), 

>  ( (z(i,k) ,  i-1,  imx(D),  k  -  1,  kmx(l)  ) 

print  *,  'Grid  dimensions  are  :',  imx(nt),  kmx(nt) 
print  *,  'TE  is  located  at  I  -',  iwks(l) 
kmx  (2)  -  kmx(l) 

imxl(nt)  -  imx(nt)  -  1 

imx2(nt)  -  imx(nt)  -  2 

kmxl(nt)  -  kmx(nt)  -  1 

kmx2(nt)  -  kmx(nt)  -  2 

alfa  -  alfad*pi/180. 
alfamn  -  alfamnd*pi/180. 
alfamx  -  alfamxd*pi/180. 
omega  -  0. 

c..  specify  some  parameters  *** 
tinf  -  530.0 
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124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 
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149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 
17° 
180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 


prkin  -  0.72 

prtur  -  0.90 

reynnu  -  reynph  /  amach 

gamma  -  1.4 

gnw  -  gamma  -  1.0 

gmp  -  gamma  +  1.0 

rgamma  -  1.0/gamma 

rgmm  -  1.0/gmm 

rgmp  -  1.0/gmp 

gmbygp  -  gmm/gmp 

rinf  -  1.0 

uinf  -  amach 

winf  -  0. 

pinf  -  1.0/gamma 

ainf  -  0.5*rinf* (uinf**2  +  winf**2)  +  pinf*rgmm 
iter  -  0 
time  -  0. 

if  (iread  .ne.  0)  then 
call  qio(iread) 
kmxlfl)  -  kmxfl)  -  1 
kmx2(l)  -  kmxfl)  -  2 
alfa  -  alfad*pi/180. 
call  grmove(alfa) 
iff  (oscil  .or.  ramp)  .and. 

>  absfalfad  -  alfamnd)  .It.  l.e-05  )  then 

iter  -  0 
time  »  0. 
endif 

c  elseiff  poten  )  then 

c. .initialize  bl  (k<kpots)  and  the  potential  flowfield. . 
c  kpots  -  25 

c  do  i  -  l,imx(l) 

c  do  k  -  1,  kmx  (1) 

c  q(l,i,k)  -  rinf 

c  enddo 

c  q(2,  i,  1)  -  0. 

c  if  (i  .It.  iwks(l)  .or.  i  .gt.  iwkefl))  q(2,i,l)  -  uinf 
c  q  (3,  i ,  1)  -  0. 

c  q (4, i, 1)  -  einf 

cenddo 

c  call  grmove (alfa) 

c  call  potsvfl,  kmxfl),  kpots,  iwks(l),  uinf) 

c  do  k  -  2,  kpots-1 

c  ratiok  -  float (k) /kpots 

c  do  1  -  1,4 

c  do  i  -  l,imx(l) 

c  if  (i  .ge.  iwksfl)  .and.  i  .le.  iwkefl))  then 

c  qfl,  i,  k)  »  qfl,  i,  1)  +  ratiokM  qfl,  i,  kpots)  -qfl,  i,  1)  ) 

c  else 

c  q(l,i,k)  -  qfl, i, kpots) 

c  endif 

c  enddo 

c  enddo 

c  enddo 

else 

c..  initialize  q  to  freestream  values  everywhere  *** 
do  60  k  •  1,  kmxfl) 
fact  -  mind.,  float(k)/15) 
do  60  i  -  1,  imxfl) 

q(l,i,k)  -  rinf 

if  (i  .ge.  iwksfl)  .and.  i  .le.  iwke(l))  then 
q(2,i,k)  -  fact  *  rinf*uinf 

else 

q(2,i,k)  -  rinf*uinf 
endif 

q(3,i,k)  -  0. 
q(4,i,k)  ■  einf 
60  continue 

call  grmove (alfa) 
endif 

call  eigen 

oalfa  «  float (int (alfad) ) 

open (unit<*9,  file-' loads . d ' ,  form- '  formatted ' ) 
open (unit-8, file-'qp.d' , form- 'unformatted' ) 
write (6, 101) 

101  format (//'  Iter  Alpha  Time  Resid  Density  i  k 

> '  Cm  Cd  Cl ' ) 

return 
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231 
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233 

234 
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237 

238 
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241 
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244 
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247 
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253 
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261 
262 

263 

264 

265 
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267 

268 

269 
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271 

272 


subroutine  be 
include  'corns. f 
logical  doit 

c  if  (  poten  .or.  ramp  .or.  oscil  .or.  iter  .gt.  50)  then 
decay  -  0. 

c  else 

c  decay  -  1.0  -  float (iter) /50. 

c  endif 

ng  «1 

c. . for  <k-l>.  <i«itel,iteu>  for  airfoils 

11  -  iwks(ng) 

12  -  iwke(ng) 
kl  -  1 

k2  -  2 
k3  “  3 

do  100  i-il,i2 

rval2  -  q(l,i/k2) 
pval2  »  gmm*  (q(4,  i,  k2)  - 

>  0 . 5*  (  q(2,i,k2)**2  +  q(3,i,k2)**2  )  /  q(l,i,k2)) 

rvall  -  rval2 
pvall  “  pval2 
xtau  “  omega  *  z(i«kl) 
ztau  —omega  *  x(i>kl) 
if(  vise  )  then 

c.. enforce  non-slip  boundary  condition  on  the  surface  *** 
ul  -  q(2,i,kl) 
u2  -  q(3,i,kl) 
else 

c.. enforce  slip  boundary  condition  on  the  surface  *** 
decay  -  1. 


u2 

u3 

v2 

v3 

ucon2 

ucon3 

vcon2 

vcon3 

uconl 

vconl 

ul 


endif 
q(l.i.kl) 
q<2, i, kl) 
q(3,  i,  kl) 
q(4,i, kl) 


-  q(2,i,k2)/q(l,i,k 2) 

-  q(2,i,k3)/q(l,i,k3) 

-  q(3,i,k2)/q(l,i,k2) 

-  q(3,i,k3)/q(l,i,k3) 

-  xtau  +  xix(i,k2)*u2  +  xiz(i,k2)*v2 
»  xtau  +  xix(i,k3)*u3  +  xiz(i,k3)*v3 

-  ztau  +  zex(i,k2)*u2  +  ze2 (i, k2) *v2 

-  ztau  +  zex(i,k3)*u3  +  zez(i,k3)*v3 

-  2.*ucon2  -  ucon3 

-  0. 

-  (  (uconl-xtzu)*zezti,kl)  *  xiz  (i,  kl)  *ztau  ) 
*aja (i, kl) 

»  (- (uconl-xtau) *zex (i, kl)  -  xix{i,kl>**tau  ) 
♦ajaU.kl) 

)  -  rvall 

)  «  (decay  *  ul  +  xtau)  *  rvall 
)  -  (decay  *  vl  +  ztau)  *  rvall 
)  -  rgmm* pvall  +  0. 5* (q(2, i, kl) **2+q (3, i, kl) **2  ) 

/  rvall 


100  continue 

doit  -  .false. 

if(  .not.  poten  .and.  doit  )  then 
c..set  free-stream  conditions. . 

q (1, if  kl)  -  rinf 
q (2, if  kl)  -  rinf*uinf 
q (3, i, kl)  -  0. 
q(4, i, kl)  -  einf 
elseift  .not.  poten  )  then 

c..  enforce  boundary  conditions  at  the  inlet  boundary 


1)  Dt(kmax)  -  pt (inlet)  (total  pressure  condition) 

2)  ‘u(kmax)  -  uinf  (inlet  angle  -  a  degs) 

3)  w(kmax)  -  winf  (inlet  angle  -  a  degs) 

4)  reiml(kmax)  *>  reiml  (inlet) 

(reimann  variable  reiml  »  u  +  2c/  (g 

5)  reim2(kmax)  -  reim2 (kmax-1) 

(reimann  variable  reim2  -  u  -  2c/ (5 


u  +  2c/ (gamma-1) ) 
u  -  2c/ (gamma-1) )  *** 


cinf  -  sqrt (gamma*pinf/rinf ) 
sinf  -  pinf/rinf**gamma 
reiml  **  uinf  +  2.0*cinf*rgmm 

ptinf  -  pinf*(1.0  +  0.5*gmm*amach**2) ** (gamna*rgmm) 
kl  -  kmx(ng) 

k2  -  kmxl(ng) 

do  200  i  -  2,  imxl(ng) 

pval2  -  gmm*(q(4,i,k2)  -  0.5*(  q(2,i,k2)**2  +  q(3,i,k2)**2  ) 
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312 
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343 

344 

345 

346 

347 

348 

349 

350 


>  /  q(l,i,k2)  ) 

cval2  -  sqrt (gamma*pval2/q(l, i,  k2) ) 
uval2  -  q(2,i,k2)/q(l,i,k2) 
reim2  -  uval2  -  2.0*cval2*rgmm 
uvall  «  0.5* (reiml  +  reim2) 
wall  *  winf 

cvall  -  0.25*gmm« (reiml  -  reim2) 
c  amsq  •  (uvall**2  +  wall**2) /cvall**2 

c  pvall  “  ptinfMl.O  +  0 . 5*gmm*amsq)  **  (-gamma*rgmm) 

c  rvall  -  gamma*pvall/cvall**2 

avail  -  sinf 

rvall  «  (rgamma*cvall**2/svall) **rgmm 
pvall  -  rgamma*rvall*cvall**2 
q(l,i,kl)  -  rvall 
q(2,i,kl)  -  rvall*uvall 
q  (3,  i,  kl)  «  rvall*wall 

q(4,i,kl)  -  pvall*rgmm  +  0.5*rvall* (uvall**2  +wall**2) 

200  continue 
endif 

c.. enforce  boundary  conditions  at  the  exit  boundary 
c  l)p-  pstat  (static  pressure  condition) 

c  2)  w(imax)»  w(imax-l) 

c  2)  reiml(imax)  -  reiml (imax-1) 

c  (reimann  variable  reiml-  u  +  2c/ (gamma-1) ) 

c  4)  s(imax)  -  s (imax-1)  (entropy  condition)  *** 


ng  -  1 

11  -  imx(ng) 

12  -  imxl(ng) 

do  300  k  -  1,  kmx (ng) 
rval2  -  q(l,i2,k) 

pval2  -  gmm*(q(4,i2,k)  -  0.5*(  q(2,i2,k)**2  +  q(3,i2,k)**2  ) 
>  /  q(l,i2,k)  ) 


cval2  «  sqrt (gamma*pval2/q(l, i2, k) ) 
uval2  -  q(2,  i2,  k) /q  (1,  i2,  k) 
wal2  -  q(3,i2,k)/q(l,i2,k) 
reiml  -  uval2  +  2. 0*rgmm*cval2 
sval2  -  pval2/rval2**gamma 
svall  -  sval2 
pvall  -  pinf 

rvall  -  (pvall/svall) **rgamma 

cvall  -  sqrt (gamma*pvall/rvall) 

uvall  »  min(  uinf,  reiml  -  2. 0*rgmm*cvall  ) 

wall  -  wal2 


300 


q(l,il,k) 
q(2,  il,  k) 
q(3,  il,  k) 
q (4,  il,  k) 

continue 

11  -  1 

12  -  2 

do  350  k  -  1, 
rval2 
pval2 


rvall  -  rval2 
uvall  -  uval2 
wall  -  wal2 
rvall 

rvall*uvall 

rvall*wall 

pvall*rgmm  +  0.5*rvall*(uvall**2  +  wall**2) 


kmx (ng) 
q(l,i2,k) 
gmm*  (q (4,  i2,  k) 


0.5*  (  q(2,i2,k)**2  +  q(3,i2,k)’ 
/  q (1, i2, k) ) 


‘2  ) 


cval2  -  sqrt (gamma*pval2/q (1, i2, k) ) 
uval2  -  q(2,i2,k)/q(l,i2,k) 
wal2  -  q(3,i2,k)/q(l,i2,k) 
reiml  -  uval2  +  2.0*rgmm*cval2 
sval2  -  pval2/rval2**gamma 
svall  -  sva!2 
pvall  -  pinf 

rvall  -  (pvall/svall) **rgamma 
cvall  «  sqrt (gamma*pvall/rvall) 
uvall  -  reiml  *  2.0*rgmm*cvall 
wall  -  wal2 
q(l,il,k)  -  rvall 
q (2, il, k)  -  rvall*uvall 
q(3,il,k)  -  rvall*wall 

q(4,il,k)  -  pvall*rgmm  +  0.5*rvall*  (uvall**2  +  wall**2) 
350  continue 

c.. outgoing  be  along  the  C  part  of  the  grid., 
doit  -  .false, 
if  (  doit)  then 
kl  -  kmx (1) 
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369 
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371 
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373 
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381 
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386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 
4  27 
428 


k2  -  kmxl  (1) 

do  360  i  -  2,  imxlU) 

vxs  -  (z(i,kl)-z(i-l,kl)  )*q(2,i,kl)  - 

>  (x(i,kl)-x(i-l,kl))*q(3,i.kl) 
if(  vxs  .It.  0.  }  then 

c  print*,  'Outgoing  be  at  i:*,  i,  pvall 

c  rval2  «  q(l,i,k2) 

c  pval2  -  gmm*  (q(4,i,  k2)  -  0.5*(  q(2,i,k2)**2  +  q(3,i,k2)**2  ) 

c  >  /  q(l,  i,  k2) ) 

c  cval2  «  sqrt (gamma*pval2/rval2 

c  uval2  «  q(2,i,k2)/q(l,i,k2) 

c  wval2  -  q(3,i,k2)/q(l,i,k2) 

c  reiml  -  uval2  +  2 . 0*rgmm*cval2 

c  sval2  «  pval2/rval2**gamma 

c  svall  »  sval2 

c  pvall  *  pint 

c  if  (poten)  pvall  -  gmm* (q (4,i, kl)  - 

c  >  0. 5*  (  q(2,i,kl)**2  +  q(3,i,kl)**2  )  /  qtl,i,kl)) 

c  rvall  «  (pvall/svall) **rgarama 

c  cvall  «  sqrt (gamma*pvall/rvall) 

c  uvall  -  reiml  -  2.0*rgmm*cvall 

c  wall  «  wal2 

c  q(l,i,kl)  -  rvall 

c  q(2, i, kl)  -  rvall*uvall 

c  q(3,i,kl)  -  rvall*wall 

c  q(4,i,kl)  -  pvall*rgmm  +  0. 5*rvall* <uvall»*2  +  wall**2) 

pvall  -  gmm*  (q(4,  i,  kl)  - 

>  0.5*  (  q  (2,  i,  kl)  **2  +  q(3,i,kl)**2  )  /  q(l,i,kl)) 

c  q(l,i,kl)  -  (4 . *q  (1,  i,  k2)  -  q ( 1,  i,  k2-l) ) /3 . 

q(l,i,kl)  -  2. *q(l, i,  k2)  -  q(l,i,k2-l) 
q (2,  i,  kl)  -  2.*q(2,i,k2)  -  q(2,i,k2-l) 
q(3,  i,  kl)  -  2.*q(3,i,k2)  -  q<3,i,k2-l) 
q(4,i,kl)  -  pvall*rgmm  + 

>  0. 5*  (  q(2,i,kl)**2  +  q{3,i,kl)**2  )  /  q(l,i,kl) 

c  else 

c  q(l,  i,  kl)  -  2.*q(l,i,k2)  -  q(l,i,k2-l) 

endif 

360  continue 
endif 

c.. boundary  condition  treatment  for  the  wake  *** 
ng  -  1 
k  -  1 

il  -  iwks(ngj-l 
do  400  1-1,4 
do  400  i  -  1, il 
il  -  i 

iu  -  imx(ng)  -  i  +  1 

c.. average  values  on  upper  and  lower  surfaces  of  cut, 
q (1,  il,  k)  -  0. 5*  (  q(l,iu,  k+1)  +  q(l,il,k+l)  ) 
q (1,  iu,  k)  -  0.5  '  (  q(l, iu,  k+1)  +  q(l,il,k+l)  ) 

400  continue 
return 
end 


C - 

subroutine  step 
include  ’corns. f' 
dimension  qold(4,nia,nka) 
nt  -  1 

c..  store  all  the  q  values  to  facilitate  an  iterative  update  *** 
do  1  1-1,4 
do  1  i«l,imx(l) 
do  1  k»l, kmx  (1) 
qold(l,i,  k)  -  q  (1,  i,  k) 

1  continue 

c..  update  all  the  q  values  *** 

DO  1000  loop  -  1,  newtit 
c.. update  outer  be 

c  if  (poten  .and.  loop  .eq.  1  )  call  nspot 

c  if  (.not.  poten  .and.  loop  .eq.  1  )  then 

c. .write  out  dphi/dt  related  terms., 
c  rho  -  q(l,61,39) 

c  pres  -  gmm*  (q(4,61,39)  -  0.5*(  q  (2,  61, 39)  **2  +  q(3,  61, 39)  **2  ) 

c  >  /  rho  ) 

c  v2  (q (2, 61, 39) / rho) **2  +  (q (3, 61, 39) /rho) **2 

c  dfdt  -  0.5*  (uinf **2-v2)  +  rgmm* (1.- (gamma*pres) ** (gmm/gamma) ) 

c  write(6, ' (3x,el4.4,14x,3el4.4) ')  dfdt,  rho,  pres,  v2 
c  endif 

c.. update  all  the  qsi  values 
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101 

> 


20 


do  10  k  -  1,  kax(nt) 
do  10  1  •  1,  4 

do  10  i  -  1,  imx(nt) 

qd(l,i,k)  -  -(  q  (1,  if  k)  -  qoldd.i.k)  )/aja(i,k) 
continue 
call  rhsosh 
call  lhs 
adromax  *  0.0 
do  20  k  «  2,  tanxl(nt) 
do  20  i  -  2,  imxl(nt) 

dro  -  aja(i,k)*qd(l,i,k) 

adro  »  abs (dro) 

if  (  adromax  .It.  adro)  then 
dromax  •  dro 
adromax  ■  adro 
ires  -  i 
kres  -  k 
endif 

if (.not. (adro  .It.  5.0  .and.  adro  .ge.  0.))then 
write(6, 101)  iter,  adro,  i,k 
format (//'  ***  It  has  BLOWN  UP  ***  8  ITER 

•  drho  -  ',ell.3,  *  8  *,  2i4  ) 

stop 

endif 

continue 


i5  / 


do  30  k  -  2,  kmxl(nt) 
do  30  1  -  1,  4 

do  30  i  ■  2,  imxl(nt) 

q  (1 ,  i ,  k)  -  q(l,i,k)  +  aja  fi,  k)  *qd  (1,  i,  k) 

30  continue 

call  be 
1000  CONTINUE 

if(  mod (iter, nload) .eq.O  .or. 

>  itr  .eq.  1  .or.  itr  .eq.  niter)  then 
call  loads 

write  (6,60)  iter, alfad, time,dromax, 

>  q(l, ires, kres),  ires, kres, cm, cd, cl 

60  format  (i5  ,f6.2,  lx,f8.4,  ell.3,f9.4,  2i4,  2x,3f8.4) 
*************  Cl  loop 

c  if  ( (.not. (oscil.or. ramp) )  .and. (abs (clo-c) ) .It. .001) )then 

c  call  qio(0) 

c  stop 

c  endi f 

c  clo-cl 

************* 

elseif  (  mod (iter, nprint) .eg.0)  then 
write  (6,60)  iter, alfad, time, dromax, 

>  q(l, ires, kres) ,  ires, kres 
endif 

return 

end 

C - - - 

subroutine  rhsosh 
include  ’corns. f' 

common  /dfdq  /  ap(nia,4,4),  am(nia,4,4) 
common  /fmet  /akt j (nia) , aktnj (nia) , 

>  akxj (nia) ,akzj (nia) ,ajac(nia,2) ,adt (nia) 

common  /flux  /qvfnia, 2, 4) , fnum(nia, 4) ,dfp(nia, 4,3) ,dfm(nia, 4,3) 

>  ,dvq(nia,4,3) 
common  /osflxs/  dfpt (nia, 4) ,  dfmt (nia,  4) 

common  /osvars/  r(nia,6),u(nia,6),v(nia,6),e(nia,6) 
dimension  akx(nia),  akz(nia),  akt  (nia),  aktn(nia) 
nt«*l 

oneby6*l. 0/6.0 
c 

do  1000  k-2,kmxl(nt)  ***********.**** 

c***************************************«***************«*  * 
c  compute  the  fluxes  for  all  the  segments  in  the  psi  direction 
{.****************«*******♦■**********************♦*******♦*****  ** 

do  110  i«2,imx(nt) 

il-i-1 

i4*i 

r  (i,l)-q(l,il,k) 
u(i,l)-q(2,il,k)/r(i,l) 
v(i,l)»q(3,il,k)/r(i,l) 
e(i,  l)«q(4,  il,  k) 
r  (i,  4)*q(l,i4,  k) 
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u(i,4)-q(2,i4,k)/r(i,4) 
v(i,4)-q(3,i4,k)/r(i,4) 
e  (i,  4)  -q(4,  i4 ,  k) 
xi_x-0.5*(xix(il,k)+xix(i4,k)) 
xi_2-0 . 5*  (xiz  (il,  k)  +xiz (i4,  k) ) 
xi_t-0. 5* (xit (il, k) +xit (i4, k) ) 
ze_t-0.5*  (zet  (il, k) +zet  (i4,  k) ) 
akt  j  (i)  -  xi  t 
aktnj(i)-  ze_t 
akx}  (i)  -  xi_x 
akzj(i)  -  xi_z 
110  continue 
ilft-2 
irgt-imx  <nt) 
call  osflux (ilft, irgt) 

e*********************************************************************** 
c  add  the  fluxes  in  each  subpath 

c*********************************************************************** 
do  120  n-1,4 
do  120  i-ilft,irgt 

dfpt  (i,n)«dfp(i,n,  l)+dfp(i,n,2)+dfp(i,n,  3) 
dfmt  (i,n)-dfm(i,n,l)+dfm(i,n,2)+dfm(i,n,  3) 

*z0  continue 

<.■»*«**■»**♦«•»******♦«****»*♦****•***»**♦«»**********«*•»«*•♦*•***♦****•»*** 
c  add  the  eta  flux  contribution  for  the  second  and  last  but  one 
c  points  (second  order  accurate  fluxes) 

idif-imx (nt) -3 
do  130  n-1,4 

do  130  i-2,imxl(nt) ,idif 

ipO-i 

ipl-i+1 

qd(n,  i,  k)«qd  (n,i,  k)  -dt  (i,  k)  *  (fnumfipl,  n)  -fnum(ip0,n)  + 

>  0.45*  (dfpt  (ipl.n)  -dfpt  (ip0,n)  -dfmt  (ipl,n)+dfmt  (ipO,  n) ) ) 

130  continue 

c************+*************+***********— ************ ****************** 
c  add  the  eta  flux  contribution  for  the  points  in  the  interior 
c  points  (third  order  accurate  fluxes) 

£ *********************************************************************  * 
do  140  n-1,4 
do  140  i-3, imx2 (nt) 
iml-i-1 
ipO-i 
ipl-i+1 
ip2«i+2 

qd(n,i,k)-qd(n,i,k)-dt  (i,k)*(fnum(ipl,n)-fnum(ipO,n) 

>  +oneby6* (2. 0*dfpt (ipl, n) -dfpt (ipO.n)-dfpt (iml,n) ) 

>  +oneby6* (2.0*dfmt (ip0,n)-dfmt (ipl, n) -dfmt (ip2,n) ) ) 

140  continue 

1000  continue 

do  2000  i-2,imxl(nt) 

C+  + +  4  +  ♦  +  +  +  ++«+++++++++++*+++*++++*++++++♦++++++++++++*+++*  ♦*♦*♦♦♦♦*+**++ 

c  compute  the  fluxes  for  all  the  segments  in  the  zet  direction 

c ♦+♦♦♦*♦+*♦♦♦+♦*+♦♦♦+♦*+++♦♦♦+♦++♦++♦+*+*♦♦♦*+♦+*♦*++*♦*+★♦♦♦♦**+***+♦♦♦ 

if(  i  .It.  iwks(nt)  .or.  i  .gt.  iwke(nt)  )  then 
kbot  -  1 
else 
kbot  -  2 
endif 

ktop-kmx (nt) 
do  210  k-kbot, kmx (nt) 
if(k  .eq.  1)  then 
ii  -  imx(nt)-i+l 
kl  -  2 
sign— 1. 
else 
ii  -  i 
kl  -  k-1 
sign-1, 
endif 
k4-k 

r(k,l)«q(l,ii,kl) 

u  (k,  l)-q(2,  ii,  kl)  /r  (k,  1) 

v(k,  l)-q(3,  ii,  kl)/r  (k,  1) 

e(k,l)-q(4,ii,kl) 

r(k,4)-q(l,i,k4) 

u(k,4)-q(2,i,k4)/r(k,4) 

v(k,4)-q(3,i,k4)/r(k,4) 
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e(k,4)-q(4,i,  k4) 

ze  x-0 . 5* ( s ign* zex ( i 1 , kl ) +zex ( i , k4 ) ) 
ze~z«0 .  5*  ( s  i gn*  ze z  ( i  i ,  kl )  ♦  ze z  ( i ,  k4 ) ) 
z«3t«0.5*  (sign*zet (ii,  kl) +zet  <i, k4) ) 
xi~t“0. 5* (sign+xit (ii, kl)+xit (i, k4) ) 
aktnj(k)-xi  t 
akt  j  (k)-ze  T 
akxi  (k)«ze~x 
»kz3 (ki-ze^z 
210  continue  ~ 

call  osflux (kbot, ktop) 

c********************************************************************** 
c  add  the  fluxes  in  each  subpath 

c***************************** ************************* **************** 
do  220  n-1,4 
do  220  k-kbot, ktop 

dfpt  (k,n)-dfp(k,  n,  1)  +dfp(k,n,2)  +dfp(k,n,3) 
dfmt  (k,n)-dfm(k,n,  l)+dfm(k,n,2)+dfm(k,n,3) 

220  continue 

c********************************************************************** 
c  add  the  eta  flux  contribution  for  the  last 

c  point  (first,  or  second  order  accurate  fluxes) 

c********************************************************************** 
c  —  second  order  at  the  inner  boundaries  — 
c  qd(n,i,k)  -  qd(n,  i,  k) -dt  (i,  k)  *  (fnumtkpl, n) -fnum (kp0, n)  + 
c  >  0.45* (dfpt (kpl,n) -dfpt (kpO,n) -dfmt (kpl,n)+dfmt (kp0,n) ) ) 
do  n  ■  1,4 

if (kbot  .eq.  2  )  then 
k-2 
kpO-k 
kpl-k+1 

c  qd(n,i,k)  -  qd(n,i,k)-dt  (i,  k)*  (fnum(kpl,n)-fnum(kp0,n)  + 

c  >  0. 45* (dfpt (kpl,n) -dfpt (kp0,n) -dfmt (kpl,n)+dfmt (kp0,n) ) ) 

qd(n,i,k)  -  qd  (n,  i,  k) -dt  (i, k)  *  (  fnum(kpl,n) -fnum(kp0, n)  ) 
endif 
k- kmxl (nt) 
kpO-k 
kpl-k+1 

qd(n,i,k)  -  qd(n,  i,  k) -dt  (i,  k)  *  (  fnum(kpl,n) -fnum (kpO, n)  ) 

k-kmx2 (nt) 

kpO-k 

kpl-k+1 

qd(n,i,k)  -  qd(n,  i,  k) -dt  (i,  k)  *  {  fnum ( kpl, n) -fnum (kp0,n)  ) 
enddo 

c  add  the  eta  flux  contribution  for  the  points  in  the  interior 
c  points  (third  order  accurate  fluxes) 

Q*** ****** ***************************************** ******************** 

do  240  n-1,4 

do  240  k-kbot+1, kmx2 (nt) -1 

kml-k-1 

kpO-k 

kpl-k+1 

kp2-k+2 

qd(n,  i,  k)-qd(n,  i,  k)  -dt  (i,  k)  *  (fnum(kpl, n)  -fnumfkpO, n) 

>  +oneby6* (2.0*dfpt (kpl,n) -dfpt (kp0,n) -dfpt (kml,n) ) 

>  +oneby6* (2.0*dfmt (kp0,n) -dfmt (kpl,n)-dfmt (kp2,n) ) ) 
240  continue 

2000  continue 

if(  vise  )  call  oshvrhs 

return 

end 

C - 

subroutine  lhs 

parameter  (nikp  -  213,  ninv-61) 
include  • corns. f’ 

common  /ctri  /amat (ninv,nikp,  4, 4) ,  bmat (ninv, nikp, 4,4) , 

>  cmat (ninv, nikp, 4, 4) ,  fmat (ninv, nikp, 4) 
common  /swvar  /  rsw(nia) ,  usw(nia)  ,vsw(nia)  ,esw(nia) 
common  /dfdq  /  ap(nia,4,4),  am!nia,4,4) 

common  /fmet  /akt j (nia) , aktnj (nia) , 

>  akxj (nia) , akzj (nia) ,ajac (nia,  2) ,adt (nia) 

common  /flux  /qv(nia, 2, 4) , fnumfnia, 4) ,dfp(nia,  4, 3)  ,dfm(nia, 4, 3) 

>  ,dvq(nia,4,3) 

common  /visdi  /vmui(nka),  tmui(nka) 

dimension  iline(nikp),  kline(nikp) 

nt-1 
ng  -  1 
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c.. inversion  in  the  psi  direction  *** 
klft-2 

krgt-kmxl (nt) 
line-0 

do  1000  k-klft,krgt 
kpl-k+1 
kml-k-1 

line-line+1 

if (line.gt.ninv)  line-line-ninv 
kline (line)-k 

c. .initialize  the  matrices  *** 
do  110  1-1,4 

do  110  i-l,imx(nt) 

fmat (line, i, l)-qd  (1, i,  k) 

110  continue 

c.. calculate  the  matrices  aplus  and  aminus  *** 
do  120  i-l,imx(nt) 
yac  -  aia(i,k) 

akxj(i)  -  xix(i,k)  *  yac 

akzj(i)  -  xiz(i,k)  *  yac 

aktj(i)  -  xit(i,k)  *  yac 

adt(i)  -  dt(i,k) 
ajac(i,l)»  aja(i.k) 
ajac(i,2)-  aja(i,k) 
rsw(i)  -  q(l,i,k) 
usw(i)  -  q(2,i,k)/q(l,i,k) 
vsw(i)  -  q(3,i,k)/q(l,i,k) 
esw(i)  -  q<4,  i,  k) 

120  continue 

do  130  1-1,4 

do  130  i«l,imx(nt) 
qv  ( i ,  1 , 1 )  -q  ( 1 ,  i ,  k) 
qv(i,2,l)-q(l,i,k) 

130  continue 

ilft-1 

irgt-imx (nt) 

call  smatrx(ilft,irqt) 

c..  calculate  the  matrices  amat,  bmat  and  cmat  *“ 
do  140  1-1,4 
do  140  m-1,4 

do  140  i«2,imxl(nt) 
ip  -  i+1 
im  -  i-1 

amat  ( line,  i,l,m)—ap(im,l,m) 
bmat(line,i,l,m)-  ap(i  ,l,m) -am(i,l,m) 
cmat (line, i, l,m) -  am(ip,l,m) 

140  continue 

c..add  the  contribution  from  the  time  term  *** 
ilft-1 
irgt-imx (nt) 
do  150  1-1,4 

do  150  i-ilftfirgt 

bmat (line, i, 1,1) -bmat (line, i, 1,1) +1.0 
150  continue 

i-1 

do  160  1-1,4 

fmat (line,i,l)-0.0 
do  160  m-1,4 

amat (line, i, l,m)-0. 0 
bmat  (line,i,l,m)-0.0 
cmat (line, i,l,m) -0.0 

160  continue 

do  161  1-1,4 

bmat(line,i,l,l)  -  1 

161  continue 

i-imx (nt) 
do  165  1-1,4 

fmat (line,i,l)“0.0 
do  165  m-1,4 

amat  (line,  i,l,m)-0. 0 
bmat (line,i,l,m)«0.0 
cmat (line, i, l,m)-0. 0 

165  continue 

do  166  1-1,4 

bmat (line, i, 1, 1)  -  1 

166  continue 

iff  line  .eq.  ninv  .or.  k.  eq.  krgt  )  then 
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c.. solve  th«  block  tridiagonal  systan  ♦** 
call  btri (1,  imx (nt ) , line) 
c.. redefine  tha  rha  vactor  *** 

do  170  lcount-1,  line 
kd- kl i na ( 1 count ) 
do  170  1-1,4 
do  170  i<**l, imx (nt) 

qd(l,id,  kd)-fmat  (Icount,  id,  1) 

170  continue 

and  if 

1000  continue 

c.. inversion  in  tha  zeta  direction  *** 
ilft-2 

irgt-imxl (nt) 
line-0 

do  2000  i-ilft,irgt 
ipl-i+1 
iml-i-1 
line-line+1 

if (line.gt.ninv)  line-line-ninv 
iline(line)-i 

c. . initialize  the  matrices  *** 
do  210  1-1,4 

do  210  k-l,kmx(nt) 

fmat(line,k,l)-qd(l,i,k) 

210  continue 

c.. calculate  the  matrices  aplus  and  aminus  *** 
do  220  k-l,kmx(nt) 
yac  -  aja(i,k) 

akxj(k)  -  zex(i,k)  *  yac 

akzj(k)  -  zez(i,k)  *  yac 

aktj(k)  -  zet(i,k)  *  yac 

adt  (k)  -  dt  (i,  k) 

ajac(k,l)-  aja(i,k) 
ajac(k,2)«  aja(i,k) 
rsw(k)  -  q(l,  i,  k) 

usw(k)  -  q(2,  i,  k) /q(l,i,  k) 
vsw(k)  -  q(3,  i,  k) /q(l,  i,  k) 
esw(k)  -  q(4,i,k) 

220  continue 

do  230  1-1,4 

do  230  k-l,kmx(nt) 
qv(k,l,l)-q(l,i,k) 
qv  (k,  2, 1) -q  (1,  i,  k) 

230  continue 

klft-1 
krgt-kmx (nt) 
call  smatrx(klft,krgt) 

c.. calculate  the  matrices  amat,  bmat  and  cmat 
do  240  1-1,4 
do  240  m-1,4 

do  240  k-2, kmxl (nt) 
kp-k+1 
km-k-1 

amat  (line,  k,l,m)— ap(km,  l,m) 

bmat  (line,  k,  l,m)-  ap(k  ,  l,m)  -am(k,  l,m) 

cmat  (line,  k,  l,m)-  am(kp,  l,m) 

240  continue 

c..add  the  viscous  eta  contribution  to  the  lhs  *** 
if  (  vise  )  then 
klft-1 
krgt-kmx (nt) 
do  300  k»klft,krgt 
vmui  (k)-vismu(i,  k) 
tmui  (k)-turmu  (i,  k) 
akxj  (k)  -  zex  (i,  k) 

akzj  (k)  -  zez(i,k) 

aktj(k)  -  zet(i,k) 

300  continue 

call  vmatrx(klft,krgt) 
do  310  1-1,4 
do  310  m-1,4 

do  310  k-2, kmxl (nt) 
kp-k+1 
km-k-1 

amat  (line,  k,  l,m)-amat  (line,  k,  l,m)  -ap(km,  l,m) 
bmat  (line,  k,l,m) -bmat  (line,k,l,»)+ap(k  ,l,m)  + 
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>  ap(k  ,1,b) 

CMC  (line,  k, l,m)-cmat  (lina,  k,  l,m)  -ap(kp,l,m) 
310  conti nua 

endif 

c..add  the  contribution  f row  tha  time  tarm  *** 
klft-1 
krgt-kmx (nt) 
do  250  1-1,4 

do  250  k-klft, krgt 

bmat (lina, k, 1, D-bmat (lina, k, 1, 1) +1.0 
250  continua 

k-1 

do  330  1-1,4 

fmat  (lina,  k,  D-0.0 
do  330  m-1, 4 

a  mat  (lina,  k,  l,»)-0. 0 
boat (lina, k, l,m)-0.0 
cmat (lina, k, l,n)-0.0 

330  continua 

do  331  w-1,4 

bmat  (lina,  k,m,m)-1.0 

331  continua 
k-kmx  (nt) 

do  340  1-1,4 

fmat(lina,k, l)-0.0 
do  340  m-1, 4 

amat  (lina,  k,  l,m)  -0.0 
bmat (line, k, l,m) -0. 0 
cmat  (lina,  k,  l,m)  -0.0 

340  continue 

do  341  m-1, 4 

bmat  (line,  k,m,m)-1.0 

341  continue 

if(  line  .eq.  ninv  .or.  i.eq.irgt  )  then 

c.. solve  the  block  tridiagonal  system  *** 
call  btri (1,  kmx (nt) ,  line) 
c.. redefine  the  rhs  vector  *** 

do  270  lcount-l,line 
id-iline (lcount) 
do  270  1-1,4 
do  270  kd-l.kmx(nt) 

qd (1, id, kd) -fmat (lcount, kd,l) 

270  continue 

endif 

2000  continue 
return 
end 


subroutine  osf lux (lbeg, lend) 
parameter  (nia  -  213,  nka  -  61) 

common  /gamvl  /gamma,  gmffl,  gmp, 

>  rgamma,  rgmm,  rgmp, 

>  gmbygp 

common  /fmet  /akt  j  (nia) , aktnj  (nia) , 

>  akxj  (nia)  ,akzj  (nia)  ,ajac(nia,2)  ,adt  (nia) 

common  /flux  /qv (nia, 2, 4) , fnumtnia, 4) ,dfp(nia, 4, 3) ,dfm(nia, 4, 3) 

>  ,dvq(nia,4,3) 
common  /osflxs/  dfpt (nia, 4) ,dfmt (nia, 4) 

common  /osvars/  r (nia, 6) ,u(nia, 6) ,v(nia,6) ,e (nia, 6) 
dimension  eigll (nia) ,eigl2 (nia) ,aig21 (nia) ,eig 22 (nia) ,eig31 (nia) 
dimension  eig32 (nia) ,p(nia, 6) , c (nia, 6) , fact (nia) 
dimension  fvs (nia, 4,6) ,u_b(6) , v_b(6) , vqs (nia, 4, 4) 

c*************** ********** ****t******T** ******* *********************** 

c  define  constants  for  the  osher  scheme 

c*** ********************************************************  ********** 
osher— 1.0 
exp-0 . 5*gmm 
r exp- 1.0 /exp 


c  calculate  the  intermediate  quantities 

c******** **************************************  *********** 

do  10  l-lbeg,lend 

p(l,  l)-gmm*  (e  (1,  l)-0.5*r  (1, 1)  *  (u(l,  1)  **2+v(l,  1)  **2) ) 
c(l,  l)-sqrt  (gamma*p  (1 , 1)  /r  (1, 1) ) 

p(l,  4)-gmm*  (e(l,4)-0.5*r(l,4)*(u  (l,4)**2+v  (1, 4)  **2) ) 
c(l,4)-sqrt  (gamma*p(l,4)/r  (1,4) ) 
fact (l)-sqrt (akxj (l)**2+akzj (1)**2) 
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117 

•  90 

•  99 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 
94  6 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 


Of  act  -1.0/fact(l) 

aktjd)  -ofacr*aktj  d) 
a  lex  3  (1)  -ofact*akxj  (1) 
akzjd)  -ofact*akz5 (1) 
aktnj (l)«ofact*aktnj (1) 

10  continua 

do  20  l-lbeg,lend 

u  b(l)-ud,l)*akxj  (l)+v(l.l)*akzj  (1) 
v  b(l)-vd,l)*akxj  (1) -u (1, 1) *akz3  (II 
ub(4)-u(l,4)*akxj  (1 ) +v (1, 4 )  *akzj  (1) 
v“ b(4)-v  (1, 4)  *akxj  (1) -u  d,  4)  *akz  j  (1) 
az-(p(l,4)/p(l,  1)  )**  (0.5*rgaena)/sqrt  (r(l«4)/r(l,l> ) 
u  b(2)-(u_b(4)+osher*rexp*c(l,4)+az*  (u  b(l) 

>  ~  -*osher*rexp*c(l,l)))/(l.$+az) 

u  b(3)»u  b(2) 
v~b(2)-v_b(l) 
v"b(3)-v  b{4) 

c7l,2)«c7l,l)+osher*exp* (u_b(2)-u  b(l) ) 
cd,3)-c(l,4)+osher*exp*  (u  b(4)-u~b(3) ) 
r  (l,2)-r  (1,  l)*(cd,2)/cd,T/)**rexp 
t(l,3)-t(l,4)*(c(l,3)/c(l,4)  )**rexp 
p(l,2)-rgamM*r  (1,2)  *c(l,2)**2 
p(l,  3)-p(l,  2) 

u(l,2)-akxj  (1)  *u_b(2)  -akzj  (l>»v_b(2) 
v(1.2)-akzjd)*u  b(2)  +akxj  (1)  *v  b<2) 
e(l,2)-0.5*r (1,2T*  (u  (1,2) **2+v  (T,  2)  **2)+rgwn*p(l,2) 


20 

c* 

c 

c* 


30 

c* 

c 

c* 


u(l,3)-akxj(l)*u_b(3)-akzj  (l)*v  b(3) 

v(l,3)-akzj  (l)*u  b (3)  +akxj  (1)  *v  b(3) 

ed,  3)-0.5*r  (1, 3l*  (u  (1, 3)  **2+v(T,  3)  **2)  ♦rgiwn'*p (1, 3) 

grvel  -  aktj(l) 

eigll(l)“  (  u_b(l)  ♦  grval  )  +  osher*c(l,l) 

eigl2(l)-  (  u  b(2)  +  grvel  )  ♦  osher*c(l,2) 

eig21(l)“  (  u~b(2)  ♦  grvel  ) 

eig22(l)-  (  u_b(3)  +  grvel  ) 

eig31d)“  (  u_b(3)  ♦  grvel  )  -  osher*c(l,3) 

eig32(l)-  (  u_b(4)  +  grvel  )  -  osher*c(l,4) 

continue 


calculate  fluxes  at  each  of  the  nodes  for  all  the  segments 


do  30  m-1,4 
do  30  l-lbeg,lend 

Ucon  -fact  (1)*  (akt  j  (1  > +u (l,m)  *akxj  (l)+v(l,m)*akzj  (1) ) 

rUcon  «r(l,m)*Ucon 

epp  -e(l,m)+p(l,m) 

pfact  -fact(l)*p(l,m) 

fvs(l,l,m)-  rUcon 

fvs(l,2,m)-  rUcon*u  (l,m) +akxj  (l)*pfact 
fvs(l,3,m)-  rUcon*v(l,m)+akzj  (l)*pfact 
fvs (1, 4,m)-epp*Ucon  -aktj (1) *pfact 

continue 


calculate  dfp  for  the  first  path 


do  40  l-lbeg,lend 
az-sign (1.0,eigll (1) ) 
bz-sign (1 . 0,eigl2 (1) ) 
cz«az*bz 

dz-0.25* (cz+abs (cz) ) * (az+abs (az) ) 
dfp(l,  1,  l)-dz*  (fvs  (1,1, 2) -fvs  (1,1,1) ) 
dfp  (1, 2,  l)-dz*  (fvs  (1,2, 2) -fvs  (1,2,1)) 
dfpd,  3,  l)-dz*  (fvs  (1,3, 2) -fvs  (1,3, 1) ) 
dfp(l,4,l)-dz*  (fvs (1,4, 2) -fvs (1,4,1)) 


calculate  dfp  for  the  second  path 


az-sign (1.0, eig21  (1) ) 

dz-0.5* (az+abs (az) ) 

dfp (1,1, 2) -dz*  (fvs  (1,1,3)  -fvs  (1, 1,2) ) 

dfpd,  2,2) -dz*  (fvs  (1,2,3)  -fvs  (1,2,2) ) 

dfp (1 , 3, 2) »dz* ( fvs (1, 3, 3) -fvs (1,3,2)) 

dfpd  ,  4 , 2) -dz*  (fvs  (1, 4, 3) -fvs  d, 4,2) ) 


c 

c 

c 


calculate  dfp  for  the  third  path 
az-sign (1.0,eig31  d) ) 
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989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
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1001 
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1004 
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1006 

1007 

1008 
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1015 

1016 

1017 
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1021 
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bz-aign(l.0,eig32(l) ) 
cz-az*bz 

dz«0. 25* (cz+abs <cz) ) * (az+abs (az) ) 
dfp(l,l,3)-dz*(fvad,l,4)-fvs(l.l,3) ) 
dtp  (1, 2,  3)-dz*  (fvs  (1,2, 4) -fvs (1, 2,3)) 
dfpd ,  3,  3)-dz*  (fva  (1, 3, 4)  -fva  (1,3,3) ) 
dfpd.4,3)-dz+(fvsd,4,4)-fvsd,4,3)) 
40  continue 


c  correction  for  a  sonic  point  in  firat  path 
£••****»*»*•******•**•****•******••*••*•«***•••***••*****••***+•+•*++ 
do  50  l-lbeg,lend 
az-sign il.0,eigll (1) ) 
bz-sign(1.0,eigl2(l) ) 
if ( (az*bz) .gt.0.0)  go  to  50 
u  b(l)-u(l,l)*akxj{l)+v(l.l)*akzj(l) 
v_b(l)-v(l,l)*akxj  (1)  -u  (1, 1) *akzj  (1) 
u~b(5)-gwbygp* (u  b(l)-osher+rexp*c(l,l) ) 
cTl, 5)— osher*u  E(5) 
v_b(5)-v_b<l) 
c 

u(l,5)-akxj  (1)  *u_b(5)  -akzl  (1)  *v  b(5) 
v(l,5)-akzj  (l)*u  b(5)+akxj  <1 )  »v_b (5) 
r(l,5)-r(l,l)*(c7l,5)/c(l,l))**rexp 
p(l,5>-r(l,5)+cd,5)**2/gainma 

e(l,5)-0.5*r  (1, 5)*  (u  (1, 5)  »*2+v(l,  S)**2)  +p  (1, 5)  *rgrm 
n»»5 

Ucon  -fact  (1)*  (akt  j  (l)+u(l,m)  *akxj  (l)+v(l,m)*akzj  (1) ) 

rUcon-r ( 1 , m) *Ucon 

epp  «ed,Ri)+p<l,in) 

pf act-fact (1)  *p  (1 ,  m) 

fvs (1, l,m)-rUcon 

fvs  (1, 2,m)-rUcon*u(l,m)+akxj  (1)  *pfact 
fvs  (1, 3,m)-rUcon*v  (l,m)  +akzj  (1)  *pfact 
fvs (1, 4, m) -epp* Ucon  -akt j (1) *pfact 

cz-0.5* (az+abs (az) ) 
dz-0.5* (bz+abs (bz) ) 
ez-cz-dz 

dfpd,l,l)“dfpd,l,l)-cz*fvsd,l,l)+ez*fvs(l,l,5)+dz*fvsd,l,2) 
dfp(l,2,l)-dfp(1.2,l)-cz*fvsd,2,l)+ez*fvs  (l,2,5)+dz*fvs(l,2,2) 
dfp (1, 3, l)-dfp (1, 3, 1) -cz*fvs (1,3, 1) +e2* fvs (1,3,5) +dz*fvs (1, 3, 2) 
dfp<l,4,l)-dfpd,4,l)-cz*fvs(l,4,l)+ez*fvs(l,4,5)+dz*fvs(l,4,2) 
50  continue 


c  correction  for  a  sonic  point  in  third  path 
(.*****•»**•»**»«*•******•*******+*****«*«**•**•*******••*•*•***•••••* 
do  60  1-lbeg, lend 
az-sign(1.0,eig31  (1) ) 
bz-sign  (1.0,eig32 (1) ) 
if ( (az*bz) .gt.0.0)  go  to  60 
u  b  (4)-u  (1, 4)  *akx  j  (1)  +v  (1, 4)  *akzj  (1) 
v_b(4)-v(l,4)  *akxj  (1) -u (1, 4 ) *akzj  (1) 
u_b ( 6) -gmbygp* (u_b ( 4) +osher*rexp*c (1, 4 ) ) 
c  (1, 6)-osher*u_bl6) 
v_b(6)»v_b(4) 
c 

u(l,6)-akxj  (l)*u_b(6)-akzj  (l)*v_b(6) 
v(l,6)-akzj  (1)  *u~b(6) +akxj  (l)+v  b(6) 
r(l,6)-r(l,4)*(cTl,6)/c(l,4))**rexp 
p(l,6)»r  d,6)*c(l,6)**2/gamjna 

e(l,6)-0.5*r(l,6)*(u(l,6)**2+v(l,6)**2)+p(l,6)*rgmm 

m-6 

Ucon  -fac'.  (1)  *  (akt  j  (l)+u  (l,m)  *akxj  <l)+v(l,m)*akzj  (1) ) 

rUcon  «rU,m)+Ucon 

epp  -e(l,m)+p(l,m) 

pfact  -fact  (1)  *p(l,m) 

fvs(l,l,m)-  rUcon 

fvs(l,2,m)«  rUcon*u<l,m) +akxj  (l)*pfact 

fvsd*3,m)«  rUcon*v(l,m) +akzj  (l)*pfact 

fvs (1, 4,m)-epp*Ucon  -akt j (1) *pfact 

cz-0.5* (az+abs (az) ) 
dz-0.5+ (bz+abs (bz) ) 
ez-cz-dz 

dfp(l,  1, 3)-dfp(l,  1,3)  -cz*fvs  (1,1, 3)+ez+fvs  (1,1, 6)+dz*fvs  (1,1,4) 
dfpd,2,3)-dfp(lr2,3)-cz*fvs(l,2r3)+ez+fvs(l,2,6)+dz*fvs(l,2,4) 
dfp(l,3,3>-dfpd,3,3)-cz*fvsd,3,3)+ez*fvs(l,3,6)+dz*fvsd,3,4) 
dfp (1, 4, 3)-dfp(l, 4, 3) -cz*fvs (1, 4,3)+ez*fvs (1,4, 6)+dz+fvs (1,4,4) 
60  continue 
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c  calculate  dfm  for  all  the  paths  and  fnu*  for  tha  segment 
c************************************************************* 
do  70  k-1,4 
do  70  l-lbeg,lend 

dfn(l,  k,  l)«fvs  (1,  k,  2)  -fvs  (1,  k,  1)  -dfp  (1,  k,  1) 
dfm(l,  k,2)-fvs  d«  k,  3)  -fvs  (1,  k,  2)  -dfp  d#  k,  2) 
dfmd,  k,  3) -fvs  (1,  k,  4)  -fvs  (1,  k,  3)  -dfpd*  k,  3) 
dfpl-dfp<l,  k,  1)  *dfp  d,  k,  2)  +dfp  (1.  k,  3) 
fnumd#  k)  -fvs  (1#  k,  4)  -dfpl 
70  continue 


c  calculate  dvq  for  all  the  paths 

c*«.***»«*. **.««***♦****•**•♦*»*«•»»»♦» •*•»»•**»•♦•*»*** 

do  80  m-1,4 
do  80  l-lbeg,lend 
az-gmm/pd,m) 
bz«az*r  d,m) 

vqs(l,l,m) -gmp-log(pd«m)/r  (l,m)  **gawna) -ar*e  d#m) 
vqs  (l,2,m)*bz‘u(l,«l 
vqs  d,3»m)-bz*vd,m) 
vqs  (1, 4,m)  —  bz 
80  continue 

do  90  k-1,4 

do  90  l«lbeg,lend 

dvqd,  k,  1 )  —vqs  (1,  k,2)  -vqs  (1,  k,  1) 

dvq  (1,  k,  2)  -vqs  d,  k,  3)  -  vqs  d,  k,  2) 

dvqd,k,3)-vqs  (1,  k,4)-vqs  (l,k,3) 

90  continue 

return 
end 


C - 

subroutine  oshvrhs 
include  ’corns. f' 

common  /flux  /qv (nia, 2, 4) , fnumtnia, 4 ) ,dfp(nia, 4, 3) ,dfm(nia, 4 , 3) 
>  ,dvq(nia,4,3) 

nt  -  1 

obyre-1 . 0/ reynnu 
call  mulam 

if  (  turbl  )  call  eddybl 

£*♦********* +  *♦♦**♦♦  +  **♦****•**♦**  +  ■**♦•*******•*******♦  +  *♦**♦***♦***•*  +  ** 
c  compute  the  eta  direction  viscous  terms 

£**********  +  *•*****■***  +  ***♦**********************♦***'4 .*♦♦♦********♦**♦ 

do  1000  i-l.imx(nt) 

ip-i+1 

im-i-l 

do  20  k«2,kmx(nt) 

km-k-l 

u_xi-0.0 

w_xi-0 . 0 

a  xi-0.0 

uff  -  q(2,i,k  )/q(l,i,k  ) 
ul  -  q(2,  i,  km) /q(l,  i, km) 
u  ze  -  uO  -  ul 
vTS  -  q(3,i,k  )/q(l,i,k  ) 
wl  -  q(3,i,km)/qd,i,km) 
v  ze  -  wO  -  vl 

aff  -  (  q(4,i,  k  )/q(l,i,k  )  -  0.5*(  u0**2  +  v0**2  )  ) 
al  -  (  q  (4,  i,  km)  /qd,  i,  km)  -  0.5*  (  ul**2  +  vl**2  )  ) 
a  ze  -  aO-al 

£******T***-4r  ♦*****♦**■*★*■*♦■*♦*****★**  +  **♦  +  **♦  +  *♦♦  +  * 


c  compute  the  necessary  metrics 
c*********************************«' 


xi_x  -  0.5* (  xix(i,km)+xix\i,k)  ) 
xi_z  -  0.5*(  xiz(i,km)+xiz(i,k)  ) 
ze_x  -  0.5*(  zex (i, km) +zex (i, k)  ) 
ze_z  -  0.5*  (  zez(i,km)+zez!i,k)  ) 
ajac  -  0.5*(  aja (i, km)  +aja (i, k)  ) 
c  ajac  -  1. 

£•**+♦**  +  •*•*•**  +  *  +  *•*'*  +  -**+**  +  *♦****♦♦•***'**♦  +  **♦*♦****  ♦*******  +  «'*« +  *+**4 

c  compute  the  velocity  derivatives  w.r.t.  x  and  2 

£**♦+*♦*♦*+*•*  +  **  +  ♦♦*  +  +  *********♦+*****«*  +  +  +  ♦****-*■*♦♦♦♦**  *********** 


Ux  -  ajac*(  u_xi*xi_x  +  u_ze*ze_x  ) 
Wx  -  ajac*  l  w_xi*xi_x  +  v-ze*ze_x  ) 
Ax  -  ajac*(  a_xi*xi_x  +  a_ze*ze_x  ) 
Uz  -  ajac*(  u_xi*xi_z  +  u~ze*ze_z  ) 
Wz  -  ajac*(  w  xi*xi_z  *  w"ze*ze_z  ) 
Az  -  ajac*(  a“xi*xi_z  +  a~ze*ze_z  ) 
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1200 
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c 

c 

c 


c 

c 

C' 


20 


30 

1000 

C - 


c 

c 

c 


c 

c 

c 


c 

c 

c 


compute  the  stress  tensors 


Vmu  «  0.5*obyre*(  vismuti,  km)  +  vismu(i,k)  ) 
Trnu  -  0.5*obyre*(  turmu  (i,  km)  +  turmu  (i,k)  ) 
Cmu  *  Vmu+Tmu 

T  xx  -  Cmu*  (  2 . 0*llx-2 .0*  (Ux+Wz) /3 . 0  ) 

T"zz  -  Cmu* (  2. 0*Wz-2. 0* (Ux+Wz) /3. 0  ) 

T_xz  -  Cmu* (  Uz*Wx  ) 

Uvel  »  0.5*  (  uO  +  ul  ) 

Wvel  -  0.5* (  wO  +  wl  ) 
akbycp  »  Vmu/prkin+Tmu/prtur 
gkbycp  »  gamma  *  akbycp 

Rx  -  Uvel*T_xx  +  Wvel*T_xz  ♦  gkbycp*Ax 

Sz  -  Uvel*T  xz  +  Wvel*T  zz  +  gkbycp’Az 

,.**************t.******«***t*. ..•**•;*.*.*.. 

compute  the  numerical  fluxes 


fnum(k, 1)  -  0.0 

fnum(k,  2)  -  ze_x*T_xx  ♦  ze_z*T_xz 

fnum(k,3)  -  ze_x*T_xz  +  ze_z*T_zz 

fnum(k,4)  «  ze~x*Rx  +  ze“z*Sz 

continue 

do  30  n«l,4 

do  30  k-2,kmxl(nt) 

kpO-k 

kpl-k+1 

qd(n,i,k)-qd(n,i,k)+dt  (i,k)*(  fnum(kpl,n) -fnum(kp0, n)  ) 

continue 

continue 

return 

end 


subroutine  vmatrxfjkbeg,  jkend) 
parameter  (nia  -  213,  nka  -  61) 
common  /dfdq  /  ap(nia,4,4),  am(nia,4,4) 
common  /fmet  /akt j (nia) ,aktnj (nia) , 

>  akxj (nia) ,akzj (nia) ,ajac (nia,  2)  ,adt (nia) 

common  /flux  /qv (nia, 2, 4) , fnumfnia, 4) ,dfp (nia, 4, 3) ,dfm(nia, 4, 3) 

>  ,  dvq (nia, 4, 3) 


common  /gamvl  /gamma, 

>  rgamma, 

>  gmbygp 
common  /tmval  /timeacc,  time, 
logical  timeacc 

common  /visdi  /vmui (nka) , 
common  /visvl  /reynnu, reynph, 
const-1 . /reynnu 
ratlb3-l. 0/3.0 
rat4b3-4. 0/3.0 


gmm,  gmp, 

rgmm,  rgmp, 

dtau,dt (nia, nka) ,cour 

tmui (nka) 

prkin,  prtur 


***  logic  for  zeta  direction  matrices  ** 

do  10  jk-jkbeg, jkend 
adm  -  ajac(jk,l) 
zetax  -  adm*akxj(jk) 
zetaz  -  adm*akzj(jk) 
zetaxsq-  zetax**2 
zetazsq-  zetaz**2 

***  compute  the  viscous  parameters  *** 

amu  -  const*adt(jk)*vmui(jk) 

bmu  -  const*adt ( jk) *tmui ( jk) 

fmu  -  amu+bmu 

akbycp-  amu/prkin  +  bmu/prtur 

***  compute  often  used  terms  *** 

alfO  -  gamma*akbycp* (zetaxsq+zetazsq) 
alfl  -  fmu* (rat4b3*zetaxsq+zetazsq) 
alf3  «  fmu*ratlb3*zetax*zetaz 
alf4  -  fmu* (zetaxsq  +  zetazsq) 
alf5  -  fmu*ratlb3*zetay*zetaz 
alf6  -  fmu* (zetaxsq  +  rat4b3*zetazsq) 
rval  -  0.5*(qv(jk,l,l)+qv(jk,  2,1)) 
obyr  -  1.0/rval 
obyrl  -  1.0/qv(jk,  1,1) 
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1269 

1270 
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1273 
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1276 

1277 

1278 
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1284 

1285 

1286 


c 

c 

c 


10 


obyr2  -  1.0/qv(jk,2,l) 

uval  -  0. 5*  (qv(  jk,  1, 2) *obyrl+qv ( jk,  2, 2)  *abyr2) 

wal  -  0.5*(qv(jk,l,3)*obyrl+qv(jk,2,3)*obyr2) 

eval  -  0.5*(qv(jk,l,4)+qv(jk,2,4)J 

ubyro  -  uval*obyr 

wbyro  -  wval*obyr 

usqby  -  obyr*uval**2 

uwbyr  -  obyr*uval*wal 

wsqbyr  -  obyr*wval**2 

ebyrsq  -  eval*obyr**2 

***  compute  the  viscous  matrix  *** 


1222 

ap(jk,  1,1) 

m 

0.0 

1223 

*p<: 

k,  1,2) 

m 

0.0 

1224 

•p<: 

k,  1, 3) 

m 

0.0 

1225 

«p(: 

k,l,4) 

m 

0.0 

1226 

»p(i 

k,2,l) 

m 

-alf l*ubyro-alt3*wbyro 

1227 

«p<: 

k,2,2) 

m 

alfl*obyr 

1228 

ap(3 

k,  2, 3) 

m 

alf3*obyr 

1229 

ap(: 

k,  2, 4 ) 

m 

0.0 

1230 

ap(j 

k,  3, 1) 

m 

-alf 3*ubyro-alf 6*wbyro 

1231 

ap(jk,3,2) 

m 

alf3*obyr 

1232 

«P<) 

k,  3, 3) 

m 

alf6*obyr 

1233 

apC 

k,  3, 4) 

m 

0.0 

bz  -  -alfl*usqbyr-alf6*wsqbyr 
cz  -  alfO* (usqbyr+wsqbyr-ebyrsq) 


apt  j  k,  4, 1) 
ap(  jk,  4, 2) 
apt  jk,  4, 3) 
apt  jk,  4, 4) 
continue 
return 
end 


bz+cz 

-  -ap(jk,2,l)-alf0*ubyro 

-  -ap  ( jk,  3, 1) -alf0*wbyro 

-  alf0*obyr 


subroutine  smatrxtikbeg,  ikend) 
parameter  (nia  «  213,  nk a  -  61) 
common  /dfdq  /  ap(nia,4,4),  am(nia,4,4) 

/  rsw(nia)  ,usw(nia) ,  vsw(nia)  ,esv(nia) 

/akt j  tnia) ,aktnj (nia) , 
akxj  (nia)  ,akzj  (nia)  ,ajac(nia,2)  ,adt  (nia) 
/qv(nia,2, 4) , fnumtnia, 4) , dfp (nia, 4, 3) ,dfm(nia, 4, 3) 

>  ,dvq(nia,4,3) 

common  /gamvl  /gamma,  gmm,  gmp, 

>  r gamma,  rgmm,  rgmp, 

>  gmbygp 

common  /tmval  /timeacc,  time,  dtau,dt (nia, nka) , cour 
logical  timeacc 


common  /swvar 
common  /fmet 

> 

common  /flux 


dimension  akxsq(nia) , akzsq(nia) ,ofact (nia) 

dimension  eigl (nia) ,eig2 (nia) ,eig3 (nia) ,eig4 (nia) ,eig5(nia) 

dimension  eig6 (nia) ,eig7 (nia) ,eig8 (nia) ,eig9 (nia)  ,eigl0 (nia) 

dimension  eigmd(nia, 4) , eigmdpl (nia, 4) ,p(nia)  ,c (nia) ,  qsqby2 (nia) 

eps-0.02 

do  10  ik-ikbeg, ikend 

qsqby2  (ik)  -0. 5*  (usw(ik)  **2>vsw(ik)  **2) 

p(ik)  -gmm*  (esw(ik)  -0.5*rsw(ik)  *qsqby2  (ik) ) 

c(ik)  -sqrt  (gamma*p(ik) /rsv(ik) ) 

ofact  (ik)  -sqrt  (akxj  (ik)  **2+akzj  (ik)  **2) 

fact-1. 0/of act (ik) 

akt  j  (ik)-fact*aktj  (ik) 

akxj  (ik)-fact*akxj  (ik) 

akzj  (ik)-fact*akzj  (ik) 

akxsq(ik)-akxj  (ik)  **2 

akzsq(ik)-akzj  (ik)**2 

tconst-0.25*adt (ik) /sqrt (1.5) 

az-tconst*ofact (ik) 

eigmdtik,  l)-az*  (akt  j  (ik)  +usv(ik)  *akxj  (ik) +vsw(ik)  *akzj  (ik) ) 
eigmd ( i k, 2) -eigmd ( i k, 1 ) 
bz-az*c (ik) 

eigmd ( ik, 3) -eigmd (ik, 1) +bz 
eigmdtik,  4) -eigmdtik,  1)  -bz 
add- (az*eps) **2 

eigmdpl  (ik,  l)-sqrt  (eigmd  (ik,  l)**2+add) 
eigmdpl (ik,2)-sqrt (eigmd (ik, 2) **2+add) 
eigmdpl (ik, 3) -sqrt (eigmdtik, 3) **2+add) 
eigmdpl (ik,4)-sqrt (eigmd (ik, 4) **2+add) 
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1301 
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1313 
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10  continue 

do  20  ik-ikbeg, ikend 
eigmdl-eigmd (ik,  1)  +eigmdpl  (ik,  1) 
eigmd2-eigmd (ik, 2) +eigmdpl (ik, 2) 
eigmd3-eigmd(ik,3)+eigmdpl  (ik,3) 
eigmd4«eigmd  (ik,  4)  +eigmdpl  (ik,  4) 
eigl (ik)-eigmdl+eigmd2 
eig2(ik)-eigmd3+eigmd4 
eig3 (ik)»eigmd4-eigmd3 
eig4  (ik)  -eic|2  (ik)  -eigl  (ik) 
gbar-<jmm/c  (ik)  **2 
eig5uk)-gbar*eig4  (ik) 
eig6  (ik)»gbar*eig3  (ik)  *c  (ik) 

•ig7  (ik)-eigl  (ik)  *akzsq(ik)  +eig2  (ik)  *akxsq  (ik) 
eig8  (ik)  -eigl  (ik)  *akxsq(ik)  +eig2  (ik)  *akzsq  (ik) 
eig9  (ik)-akxj  (ik)  *akzj  (ik)  *eig4  (ik) 
eiglO  (ik)-c  (ik)  *rgmm*eig3  (ik) 

20  continue 

do  30  ik-ikbeg, ikend 
az-eig3  (ik)  /c(ik) 

ap(ik,  1, 1) -eigl  (ik)  +qsqby2  (ik)  *eig5  (ik) 

>  +  (akxj  (ik)  *usw(ik)  +akzj  (ik)  ♦vsw(ik) )  *az 
ap  (ik,  1,2)  —  usw(ik)  *eig5  (ik)  -akxj  (ik)  *az 

ap  (ik,  1, 3)— vsw(ik)  *eig5  (ik)  -akzj  (ik)  *az 

ap(ik,l,4)-eig5(ik) 

az-akxj  (ik)  *eig6  (ik) 

ap  (ik,  2,  l)-usw(ik)  *ap(ik,  1,1)  -vsw(ik)  *eig9  (ik) 

>  -usw(ik)  *eig7  (ik) -qsqby2  (ik)  *az 

ap  ( i k ,  2 , 2)  -usw  (ik)  *ap(ik,  1,2)  +eig7  (ik)  +usw(ik)  *az 
ap(ik,  2,3)-usw(ik)*ap(ik,  1, 3) +eig9  (ik) +vsw  (ik)  *az 
ap(ik,2,4)-usw(ik)*ap(ik,l,4)-az 
az-akzj  (ik)  *eig6  (ik) 

ap(ik,3,l)-vsw(ik)*ap(ik,l,l)-usw(ik)  *eig9(ik) 

>  -vaw(ik)*eig8(ik)-qsqby2(ik)*az 
ap(ik,3,2)-vsw(ik)*ap(ik,  l,2)+eig9(ik)+usw(ik)  *az 
ap  (ik,  3, 3)  -vsw(ik)  *ap(ik,  1, 3)  +eig8  (ik)  +vsw(ik)  *az 
ap  (ik,  3, 4)  -vsw(ik)  *ap(ik,  1, 4)  -az 

ap(ik,  4, 1)— qsqby2  (ik)*ap(ik,  1, 1) +usw (ik) *ap (ik, 2, 1) 

>  +vsw (ik)  *ap (ik,  3, 1)  +qsqby2  (ik)  *eig2  (ik) 

>  +eigl0  (ik)  *  (usw  (ik)  *akx  j  (ik)  +vsw(ik)  *akzj  (ik)) 
ap(ik,  4,2)— qaqby2  (ik)  *ap(ik,  1, 2) +usw (ik)  *ap  (ik, 2, 2) 

>  +vsw(ik)  *ap(ik,  3,2)  -usw(ik)  *eig2  (ik) -eiglO  (ik)  *akxj  (ik) 
ap(ik,  4,3)—  qsqby2  (ik)  *ap (ik,  1,  3) +usw(ik)  *ap (ik,  2,3) 

>  +vsw(ik)  *ap(ik,3,3)  -vsw(ik)  *eig2  (ik) -eiglO  (ik)  *akzj  (ik) 
ap  (ik,  4, 4)— qsqby2  (ik)  *ap  (ik,  1, 4) +usw(ik)  *ap  (ik,  2, 4 ) 

>  +vsw(ik)*ap(ik,3,4)+eig2(ik) 

30  continue 

do  40  ik-ikbeg, ikend 

eigmdl-eigmd  (ik,  1)  -eigmdpl  (ik,  1) 

eigmd2-eigmd(ik,2)-eigmdpl (ik,  2) 

eigmd3-eigmd (ik, 3) -eigmdpl (ik,  3) 

eigmd4-eigmd(ik, 4) -eigmdpl (ik,4) 

eigl (ik)-eigmdl+eigmd2 

eig2 (ik)-eigmd3+eigmd4 

eig3 (ik)-eigmd4-eigmd3 

eig4  (ik)-eig2  (ik)  -eigl  (ik) 

gbar-gmm/c(ik)**2 

eig5(ik)-gbar*eig4  (ik) 

eig6  (ik) «gbar*eig3  (ik)  *c  (ik) 

eig7  (ik)-eigl  (ik)  *akzsq(ik)+eig2  (ik)  *akxsq  (ik) 

eig8  (ik)-eigl  (ik)  *akxsq(ik)  +eig2  (ik)  *akzsq  (ik) 

eig9(ik)«akxj  (ik)*akzj  (ik)*eig4  (ik) 

eiglO  (ik)-c(ik)  ‘rgmin^eigS  (ik) 

40  continue 

do  50  ik-ikbeg, ikend 
az-eig3  (ik)  /c  (ik) 

am(ik,  1,  l)-eigl  (ik)  +qsqby2  (ik)  *eig5  (ik) 

>  +  (akxj  (ik)*usw(ik)+akzj  (ik)  *vsw(ik) )  *az 
am(ik,  1,2)— usw(ik)*eig5(ik)  -akxj  (ik)*az 

am(ik,  1,  3)— vsw(ik)*eig5(ik)  -akzj  (ik)*az 
am(ik,  1,  4)-eig5  (ik) 
az-akxj  (ik) *elg6 (ik) 

am(ik,2,l)-usw(ik)*am(ik,  l,l)-vsw(ik)*eig9(ik) 

>  -usw(ik)  *eig7  (ik)  -qsqby2  (ik)  *az 
am(ik,  2, 2)-usw(ik)  *am(ik,  1,2)  +eig7  (ik)  +  isw(ik)  *az 
am(ik,2,3)-usw(ik)*am(ik,l,3)+eig9(ik)+vsw(ik)*az 
am(ik,2,4)«usw(ik)*am(ik,l,4)-az 

az-akzj  (ik)  *eig6  (ik) 
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1421 
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am(ik,3.. ;  )-vsw(ik)*am(ik,  1,1)  -usw(ik)*eig9(ik) 

>  -vsw(ik)  *eig8  (ik)  -qsqby2  (ik)  *az 
am(ik,3,2)-vsv(ik)  *am(ik,  1,2)  +eig9(ik)+usw(ik)  *az 
am(ik,  3, 3)-vsw(ik)  *am(ik,  1,3)  +eig8  (ik)  +vsw(ik)  *az 
am(ik,  3,4)-vsw(ik)  *am(ik,  1, 4)  -az 

amfik,  4, 1)—  qsqby2  (ik)  *am(ik,  1, 1)  +usw(ik)  *am(ik,2, 1) 

>  +vsw|ik)  *am(ik, 3, 1) +qsqby2  (ik)  *eia2  (ik) 

>  +eiglO(ik)*(usw(ik)*akxj  (ik) +vsw(ik)  *akzj  (ik) ) 
am(ik,  4,2)— qsqby2  (ik)  *am(ik,  1, 2)+usw(ik)  *am(ik,  2,2) 

>  +vsw(ik)*am(ik,3,2)-usv(ik)*eig2(ik)-eigl0(ik)*akxj  (ik) 
am(ik,  4, 3)—  qsqby2  (ik)  *am(ik,  1,  3)  +usw(ik)  *am(ik,  2, 3) 

>  +vsw(ik)  *am(ik,  3,3)  -vsw(ik)  *eig2  (ik)  -eiglO  (ik)  *akzj  (ik) 
am(ik,4,4)--qsqby2(ik)*am(ik,l,4) 

>  +usw(ik)  *am(ik,  2,4)  +vsw(ik)  *am(ik,  3, 4)  +eig2  (ik) 

50  continue 

return 

end 

c - 

subroutine  btri (lmin, lmax, itrmax) 
parameter  (nikp  -  213,  ninv-61) 

common  /ctri  /amat  (ninv,  nikp,  4, 4) ,  bmat  (ninv,nikp,  4, 4) , 

>  cmat (ninv, nikp, 4, 4) ,  fmat (ninv, nikp, 4) 

dimension  dum(nikp,4) 

lmaxm«lmax-l 

£.•***•*************♦.■»***.*****♦*************.**»*******»*******»******** 
c  lu  decompose  the  first  b  block  and  put  the  elements  back  in  this 

c  b  block  (the  diagonals  contain  the  reciprocals  of  the 

c  diagonals  of  the  lower  triangular  matrix) 

£*  +  ****  +  *****************+**  +  *********************,  ***********  ********** 

1-1 

do  10  i«l, itrmax 

bmat (i, 1, 1, l)«1.0/bmat (i, 1, 1, 1) 

bmat (i,l, 1,2) -bmat (i,  1, 1, 1) *bmat (i, 1, 1, 2) 

bmat  (i,  1, 1, 3) -bmat  (i,l,  1, 1) *bmat  (i,  1, 1, 3) 

bmat (i,  1, 1, 4) -bmat (i, 1, 1, 1) *bmat  (i,l, 1, 4) 

bmat (i, 1,2,1 ) -bmat (i, 1,2,1) 

bmat (i, 1,2,21-1.0/ (bmat (i, 1, 2, 2) -bmat (i, 1,2, 1) *bmat (i, 1, 1,2) ) 
bmat ( i , 1 , 2 , 3 ) -bmat (i , 1 , 2, 2) * (bmat (i , 1 , 2, 3 ) -bmat (i, 1,2,1)* 

>  bmat  (i,  1,1, 3)) 

bmat (i, 1, 2, 4 ) -bmat (i, 1, 2, 2) * (bmat (i, 1,2, 4) -bmat (i, 1,2,1)* 

>  bmat (i, 1,1, 4) ) 

10  continue 

do  15  i-1, itrmax 

bmat (i,l,3, l)-bmat (i, 1, 3, 1) 

bmat  (i,  1, 3. 2) -bmat  (i,  1,3,2)  -bmat  (i,  1 , 3, 1)  *bmat  (i,  1, 1, 2) 
bmat  (i,  1, 3, 3) -1.0/  (bmat  (i,  1, 3, 3)  -bmat  (i,  1, 3, 1)  *bmat  (i,  1, 1, 3)  - 

>  bmat  (i,  1, 3,2)  *bmat  (i,  1, 2,  3) ) 

bmat  (i,  1, 3, 4) -bmat  (i,  1, 3,  3)  *  (bmat  (i,  1, 3, 4)  -bmat  (i,  1, 3, 1)  * 

>  bmat (i, 1, 1, 4) -bmat (i, 1, 3, 2) *bmat (i, 1,2, 4) ) 
bmat (i, 1, 4, 1) -bmat (i, 1,4, 1) 

bmat (i,  1, 4,2) -bmat (i, 1, 4,2) -bmat (i, 1, 4, 1) *bmat (i, 1, 1,2) 
bmat (i,  1, 4, 3) -bmat (i, 1, 4 , 3) -bmat (i, 1, 4, 1) *bmat (i, 1, 1, 3) - 

>  bmat (i, 1, 4,2) *bmat (i, 1, 2, 3) 

bmat  (i,  1, 4, 41-1.0/ (bmat (i, 1, 4 , 4) -bmat (i, 1, 4, 1) *bmat  (i, 1, 1,  4)  - 

>  bmat (i, 1, 4, 2) *bmat (i, 1,2, 4)  - 

>  bmat (i, 1, 4, 3) *bmat (i, 1, 3, 4) ) 

15  continue 

Q*  **★★***•******♦■*♦**********★■**•**-*+♦***•******************♦♦★*♦****♦****  * 

c  unitize  the  first  b  block 

q*  ****** + ++++■**+•++****++**+*+*****+**■*+ *  *+<**+****«*+*++**+***+«+++*+**  * 

do  20  i-1, itrmax 

fmat  (i,  1,  l)-bmat  (i,l,l,l)*fmat(i,l,l) 

fmat  (i,  1, 2)  -bmat  (i,  1, 2, 2)  *  (fmat  (i,  1,2)  -bmat  (i,  1,2, 1)  *fmat  (i,  1, 1) ) 
fmat  (i,  1, 3) -bmat  (i,  1, 3,  3)  *  (fmat  (i,  1,3)  -bmat  (i,l,  3, 1)  *f mat  (i,  1,1)  - 

>  bmat (i, 1, 3,2) *fmat (i,l, 2) ) 

fmat  (i,  1, 4) -bmat  (i,  1,4,4)"*  (fmat  (i,  1,4)  -bmat  (i,  1, 4, 1) *fmat  (i,  1, 1) - 

>  bmat  (i,  1,  4 , 2)  *fraat  (i,  1, 2)  -bmat  (i,  1, 4, 3)  *fmat  (i,  1, 3) ) 
fmat (i, 1,3) -fmat (i, 1, 3) -bmat (i, 1, 3, 4) *fmat (i,l, 4) 

fmat (i, 1,2) -fmat (i, 1, 2) -bmat (i, 1,2, 3) * fmat (i, 1, 3) -bmat  (i,l, 2, 4) * 

>  fmat(i,l,4) 

fmat (i, 1,1) -fmat (i,l, 1) -bmat (i,l , 1,2) * fmat (1,1,2) -bmat (i,l, 1, 3) * 

>  fmat (i, 1, 3) -bmat (i, 1, 1,4) *fmat (i,l, 4) 

20  continue 

do  30  m=l,4 
do  30  i-1, itrmax 

cmat (i, 1, l,m)-bmat (i, 1, 1, 1) *cmat (i, 1, l,m) 

cmat (i, 1,2, m) -bmat (i, 1,2, 2) * (cmat (i, l,2,m) -bmat (i, 1,2, 1) * 

>  cmat (i, 1,1, m) ) 


238 


Appendix  C 


1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 
14  64 

1465 

1466 

1467 
14  68 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 
14  92 

1493 

1494 

1495 

1496 
14  97 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 


cmat  (i,  1, 3,m) -bmat  (i,  1, 3,3)  *  (cmat  (i,  1, 3,m)  -bout  {i,  1,3, 1)  * 

>  cmat  (i,  1,  l,m)  -bmat  (i ,  1, 3, 2)  *cmat  (i,  1, 2,m) ) 
cmat (i,  1, 4, m) -bmat (i, 1, 4, 4)  ♦ (cmat (i, 1, 4,m)  -bmat  (i, 1, 4, 1) * 

>  cma t(i,  1,1, m)  -bmat  (i,  1,4,2)  *cmat(i,  1,2, m) - 

>  bmat (i,  1, 4, 3) *cmat (1, 1, 3,m) ) 

cmat  (i,  1, 3, ra) -cmat  (i,  1, 3, in)  -bmat  (i,  1, 3,  4)  *cmat  (i,  1, 4,m) 
cmat  (i,  1,2,110 -cmat  (i,  l,2,m) -bmat  (i,l,2,3)  *cmat  (i,  1, 3,m)  - 

>  bmat (i, 1, 2, 4) *cmat (i, 1, 4,m) 

cmat  (i,  1,  l,m) -cmat  (i,  1,  l,m)  -bmat  (i, 1, l,2)*cmat  (i,  l,2,m)  - 

>  bmat  (i,  1, 1, 3)  *cmat  (i,  1,  3,m)  - 

>  bmat  (i,  1,1, 4)*cmat  (i,l,4,m) 

30  continue 

c*************** *************** ***************************************** 

c  upper  triangularize  the  block  tridiagonal  matrix 

c******»»»*»* ***************************** * »**•***•*. ******* ************ 

do  40  l-2,lmax 
lm-1-1 

c*********************************************************************** 
c  add  -a  (1)  *f  (1-1)  to  f(l)  and  -a(l)*c(l-l)  to  b  (1) 
c**************************************«********«*************»********* 
do  50  k-1,4 
do  50  i-l,itrmax 
dum(i,  k)-fmat  (i,  lm,  k) 

50  continue 

do  60  k-1,4 

do  60  i-l,itrmax 

fmat (i,  1,  k)-fmat  (i,  1, k) - 

>  amat (i,l,  k,  1) *dum(i, 1) -amat (i, 1, k, 2) *dum(i,2) - 

>  amat  (i,  1,  k,  3)  *dum(i,  3)  -amat  (i,  1,  k,  4)  *dum(i, 4) 

60  continue 

do  70  k-1,4 
do  70  m-1,4 
do  70  i-l,itrmax 

bmat  (i,  1,  k,m)-bmat  (i,  1,  k,m)  -amat  (i,  1,  k,  1)  *cmat  (i,  lm,  l,m)  - 

>  amat(i,l,k,2)*cmat(i,lm,2,m)- 

>  amat  (i,  1,  k,  3)  *cmat  (i,  lm,  3,m)  - 

>  amat (i, 1, k, 4) *cmat (i, lm,  4,m) 

70  continue 

£  ♦  +  +***-**  +  %  *  4k  ***♦*■*♦**  +  **♦  ♦  **  ****★+**♦***★♦  ♦  *  •*♦*********•*******•*★  *  *****  * 

c  lu  decompose  the  b(l)  block  and  put  the  elements  back  in  this 

c  b  block  (the  diagonals  contain  the  reciprocals  of  the 

c  diagonals  of  the  lower  triangular  matrix) 

£************•**********■*****♦**********************♦*************★*'1 r**** 

do  80  i-l,itrmax 

bmat  (i,l,l,l)-1.0/bmat(i,  1,1,1) 

bmat  (i,  1, 1, 2) -bmat  (i,  1, 1, 1)  *bmat  (i,  1 , 1, 2) 

bmat  (i,  1,1, 3) -bmat (i, 1, 1, 1) *bmat (i, 1, 1, 3) 

bmat  (i,  1, 1, 4) -bmat  (i,  1, 1, 1)  *bmat  (i,  1, 1, 4) 

bmat (i,l, 2, l)-bmat (i, 1,2, 1) 

bmat (i, 1, 2, 2) -1.0/ (bmat (i, 1,2,2) -bmat (i,l,2, 1) *bmat (i, 1, 1,2) ) 
bmat (i,  1,2, 3) -bmat (i, 1,2,2) * (bmat (i, 1,2, 3) -bmat (i, 1,2, 1) * 

>  bmat (i, 1, 1, 3) ) 

bmat (i,l,  2, 4) -bmat (i, 1,2, 2) * (bmat (i,l, 2, 4 ) -bmat (i, 1,2, 1) * 

>b  mat (i, 1, 1, 4) ) 

80  continue 

do  85  i-l,itrmax 

bmat (i, 1,3, l)-bmat (i, 1, 3, 1) 

bmat (i, 1, 3, 2) -bmat (i, 1, 3, 2) -bmat (i, 1,3, 1) *bmat (i , 1, 1,2) 
bmat (i, 1, 3, 3) -1.0/ (bmat (i, 1, 3, 3) -bmat (i, 1, 3, 1) *bmat (i, 1,1,3)- 

>  bmat(i,l,3,2)*bmat(i,l,2,3)) 

bmat  (i,  1, 3, 4) -bmat  (i,  1,3, 3)  *  (bmat  (i,  1, 3,  4 )  -bmat  (i,  1, 3, 1)  * 

>  bmat (i, 1, 1, 4) -bmat (i,l, 3,2) *bmat (i,l,2, 4) ) 
bmat (i, 1, 4, 1) -bmat (i,l,4, 1) 

bmat (i, 1, 4,2) -bmat (i, 1, 4, 2) -bmat (i, 1,4, 1) *bmat  (i,l, 1, 2) 
bmat (i, 1,4, 3) -bmat (i, 1, 4, 3) -bmat (i, 1, 4, 1) ‘bmat (i, 1,1,3) - 

>  bmat  (i,  1,4, 2)  *bmat  (i,  1, 2, 3) 

bmat  (i,  1,4, 4) -1.0/ (bmat (i,  1, 4, 4) -bmat (i, 1, 4, 1) *bmat (i, 1, 1,4) - 

>  bmat (i,l, 4, 2) *bmat (i, 1,2, 4) - 

>  bmat (i, 1, 4,3) *bmat (i, 1, 3,4) ) 

85  continue 

c»***********-»*****«****.*********«************»***»*«*.**************** 
c  unitize  the  b ( 1 )  block 

£++*+ ******** *************************************************** ******** 
do  90  i-l,itrmax 

fmat (i,  1, l)-bmat (i, 1, 1, 1) *fmat (i, 1, 1) 

fmat (i, 1,2) -bmat (i, 1,2, 2) * (fmat (i, 1,2) -bmat (i,  1,2, l)*fmat (i, 1,1) ) 
fmat (i,  1, 3) -bmat (i, 1,3, 3) * (fmat (i, 1,3) -bmat (i , 1 , 3, 1) *fmat  (i,l,  1)  - 

>  bmat (i,l, 3, 2) *fmat (i, 1,2) ! 
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1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 
154  5 

1546 

1547 

1548 
154  9 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 
157  9 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 


fmat  (1,1, 4)-t»at<i,  1,4,4) «(fmat(i,  1,4)  -bmat(i,  1,4,1)  *faat  (1,1,1) - 

>  bmat (i,  1, 4, 2) *fmat (1, 1, 2) -bmat (i, 1 , 4, 3) *fmat  (i ,  1, 3) ) 
fmat (i,  1, 3) -fmat (i, 1,3)  -bmat (i, 1, 3,4) *fmat (1,1,4) 

fmat  (i,l,2)«fmat(i,  1,2) -bmat  (i,  1,2,3) *fmat(i,  1,3) -bmat  <i,  1,2, 4)* 

>  fmat(i,l,4) 

fmat  (i,  1,1) -fmat  (i, 1, 1)  -bmat  (i,  1 , 1, 2)  *fmat  (i,  1,2)  -bmat  (i,  1, 1,  3)  * 

>  fmat(i,l,3)-bmat(i,l,l,4)*fmat(i,l,4) 

90  continue 

do  100  m-1,4 
do  100  i-l,itrmax 

cmat  (i,  1,  l,m)-bmat  (i,  1, 1, 1)  *cmat  ti,  1,  l,m) 

cmat  <i,l,2,m) -bmat  (1,1,2,21*  (cmat  (i,  1, 2, m) -bmat  (i,  1,2,1)* 

>  cmat  (i,  1,  l,m) ) 

cmat  (i,  1,3, m) -bmat (i, 1,3, 3) * (cmat (i,l, 3,m) -bmat  (i, 1, 3, 1) * 

>  cmat  (i,  1,  l,m)  -bmat  (i,  1, 3,2)  *cmat  (i,  1, 2,m) ) 
cmat (i, l,4,m) -bmat (i, 1, 4, 4) * (cmat (i,l, 4,m) -bmat (i, 1,4, 1) * 

>  cmat  (i,l,  l,m) -bmat  (i,  1, 4, 2)  *cmat  (i,  1, 2,m)  - 

>  bmat(i,l,4,3)«cmat(i,l,3,m)) 

cmat (i,  1, 3, m) -cmat (i, 1, 3,m) -bmat (i, 1, 3, 4) *cmat  (i, 1, 4,m) 
cmat ( i , 1 , 2 , m) -cmat ( i , 1 , 2 , m) -bmat ( i , 1 , 2 , 3 ) *  cmat ( i ,  1 , 3 ,  m)  - 

>  bmat (i, 1,2,4) *cmat (i, 1, 4, m) 
cmat (i,  1,  l,m)-cmat (i, 1, l,m) -bmat (i, 1, 1, 2) *cmat (i, 1, 2,m) - 

>  bmat (i, 1, 1,3) *cmat (i,l, 3,m) - 

>  bmat (i, 1, 1,4) *cmat (i, 1,4,  m) 

100  continue 

40  continue 

c  ***♦***■**  +  •*♦*♦*♦**'****•****■*■***■***  +  *  +  ★♦**  *  *♦*****■*★*■**  +  **♦♦**♦**♦*♦■****  * 

c  perform  the  back  substitution 

c* ********************************************************************** 

do  110  1-lmaxm, 1,-1 
lp-1+1 

do  120  m-1,4 
do  120  i-l,itrmax 
dum (i , m) -fmat (i, lp,m) 

120  continue 

do  110  m-1,4 

do  110  i-l,itrmax 

fmat  (i,l,m) -fmat  (i,l,m)- 

>  cmat ( i , 1 , m, 1 ) *dum ( i , 1 ) -cmat ( i , 1 , m, 2 ) *dum ( i , 2 ) - 

>  cmat  (i,  l,m,  3)  *dum(i,3)  -cmat  (i,  l,m,  4)  *dum(i,4) 

110  continue 

return 

end 

C - 

subroutine  mulam 
include  ’corns. f' 
nt-1 

cinfsq-gamma*pinf/rinf 

do  10  i-l,imx(nt) 

do  10  k-l,kmx(nt) 

rsqqsq  -  q (2, i , k) **2+q(3, i, k) **2 

pval  -  gmm*  (q(4,i,  k) -0.5*rsqqsq/q(l,  i,  k) ) 

cvalsq  -  gamma*pval/q(l,i,k) 

tval  -  tinf*cvalsq/cinfsq 

az  -  (tinf+198. 6) / (tval+198 . 6) 

vismu(i,k)  -  az*  (tval/tinf)**1.5 

turmu(i,k)  -  0. 

10  continue 

return 
end 

C - 

subroutine  eddybl 
include  'corns. f' 

dimension  turmui (nka) , turmuo(nka) , fval (nka)  ,snor (nka) ,vort (nka) 
dimension  u_xi(nka),u  ze(nka),  w_xi (nka) ,w_ze (nka) ,  qtot(nka) 
c  constants  for  the  turEulence  model 

aplus-26. 0 
ccp-1.6 
ckleb-0.3 
cwk-0.25 
smallk-0. 4 
capk-0.0168 
cmutm-14.0 
imax  -  imx(l) 
itel  -  iwks(l) 
iteu  -  iwke(l) 
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1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 


kmax  -  kmx  (1) 

c  calculate  the  eddy  viscosity 

c..eddy  is  scaled  down  in  wake 
do  10  i«itel,iteu 
c  do  10  i-2,imax-l 

c  calculate  the  magnitude  of  the  vorticity  and  total  velocity 
u  ze(l)  —  1.5*(q(2,i,l)/q(l,i,l))+2.0Mq(2,i,2)/q(l.i,2)) 

>  "  -0.5*  (q(2,  i,  3)  /q(l»  i«  3) ) 

w  ze(l)—  1.5*  (q(3,  i,  1) /q(l,i.  1)  )+2.0*  (q(3,i,2) /q(l,i,2) ) 

>  -0. 5*  (q(3,i,  3)  /q(l»  i»  3) ) 
do  20  k-2, kmax-1 

km-k-1 

kp-k+1 

u  ze<k)»0.5*(q(2,i,kp)/qd,i,kp)-q(2,i,km)/qd,i,km)) 
w“ze(k)-0.5*  (q(3,i,kp)/q(l,i,  kp)  -q(3,i,km)/q(l»i,  km) ) 

20  continue 

if (i  .eq.  1)  then 
do  40  k-1, kmax 
ip-i+1 

u  xi(k)-(  q(2,  ip,  k)  /q(l,  ip,  k)-q(2,i,k)/q!l,i,k)  ) 
w“xi  (k)-(  q(3,ip,  k)/q(l,ip,  k)-q(3,i,k)/q(l,i,k)  ) 

40  continue 

else 

do  60  k-1, kmax-1 

ip-i+1 

im-i-1 

u  xi(k)-0.5*<  q  (2,  ip,  k)/q(l»ip,k)-q(2,im,  k)/  q  d,  im,  k)  ) 
w“xi (k)-0.5* (  q(3,ip,k)/qd,ip,k)-q(3,im,k)/q(l,im,k)  ) 

60  continue 

endif 

do  70  k-1, kmax-1 

dudz-(  u  xi(k)*xiz(i,k)+u  ze (k) *zez (i,  k)  )*aja!i,k) 
dwdx«(  w_xi(k)*xix(i,k)+w'ze(k)*zex(i,k)  )*aja(i,k) 
vort (k)-abs (dudz-dwdx) 

qtot  (k) -sqrt  (q(2,i,k)**2+q(3,i,k)**2)/q(l»i»k) 

70  continue 

c 

c  calculate  the  distance  normal  to  the  body 
c 

snor (l)-O.O 
do  80  k«2,kmax 
km- k-1 

az«x(i,k)-x(i,km) 
bz-z  (i,  k)  -Z  (i,  km) 

snor (k) -snor (km) +sqrt (az**2+bz**2) 

80  continue 

c  calculate  the  exponent  for  the  exponential  term 

k-1 

c. .by  vorticity. . . 
c  yac  -  aja(i,k) 

c  ux-(  u  xi  (k)  *xix (i,  k) +u  ze (k)  *zex  (i, k)  )  *  yac 

c  wx—  (  w  xi  (k)*xix(i,k)+w2ze(k)*zex(i,k)  )  *  yac 

c  uz-(  u”xi  (k) *xiz (i,  k) +u_ze (k) *zez (i,  k)  )  *  yac 

c  wz«(  w_xi(k)*xiz(i,k)+w~ze(k)*zez(i,k)  )  *  yac 

c  fmu-vismu (i, k) 

c  tauxx-fmu* (2.0*ux-2.0* (ux+wz) /3.0) 

c  tauxz-fmu* (uz+wx) 

c  tauzz-fmu* (2.0*wz-2.0* (ux+wz) /3.0) 

c  ze_x  -  zex(i,k) 

c  ze  z  -  zez(i,k) 

c  fact-  1.0/sqrt (  ze_x**2+ze_z**2) 

c  akl  -  fact*ze_z 

c  ak2  — fact*ze  x 

c  tauwal-abs  '  (tauxx-tauzz) *akl+ak2+tauxz* (ak2**2-akl**2) ) 

c  expnnt-sqrt (q  (1, i, k) *tauwal) / (vismu (i , k) *aplus) 

c  expnnt-expnnt*sqrt (reynnu) 

EXPNNT  -  SQRT  (  REYNNU*q(l,  I,K)  *VORT  (K)  )  /  (VISMU(I,K)  *APLUS) 
c  calculate  the  eddy  viscosity  fot  the  iiner  region 
c  mt_inner  -  rho  *  (1**2)  *  vort 

do  90  k-1, kmax-1 

alen-smallk*snor (k) * (1. 0-exp (-expnnt*snor (k) ) ) 
turmui (k) -reynnu*q(l, i, k) *vort (k)+alen**2 
90  continue 

c  calculate  the  eddy  viscosity  for  the  outer  region 

do  k-1, kmax-1 

fval (k) -snor (k) *vort (k) + (1. 0-exp (-expnnt*snor (k) ) ) 

enddo 

fmax-0.0 
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1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 


115 

110 

120 


130 


c 


c  *  • 


10 
c. . 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


O 


do  110  k»3, kmax-1 

if  (fmax.le. fv«l  ( k.)  .or.  faax.lt. fval  (k+1) )  go  to  115 

ypl-expnnt*aplus*snor  (k) 

if (ypl.gt.30)  go  to  120 

continue 

fmax-fval  00 

Its- It 

continue 

continue 

ksm-ks-1 

ksp-ks+1 

•2- (fval (ks) -fval (ksm) ) / (snor (ks) -snor (ksm) ) 
bz«(fval (ksp)-fval (ks))/ (snor  tksp) -snor (ks) ) 
aval- (bz-az)/ (snor (ksp) -snor (ksm) ) 
bval-az-aval* (snor (ks) +snor (ksm) ) 
aval-aval+1.0e-08*sign  (1.0, aval) 
snormx— 0 . 5*bval/aval 
snormx-max ( snormx , snor ( ksm) ) 
snormx-min (snormx, snor (ksp) ) 
klft-ksm 

if (snormx. gt. snor (ks) )  klft-ks 
krgt-klft+l 

frc- (snormx-snor (klft) ) / (snor (krgt) -snor (klft) ) 

fmax-fval (klft)+frc* (fval (krgt)-fval (klft) ) 

qmax— 100000.0 

<jnin-100000.0 

do  130  k-1, kmax-1 

qmax-max (qmax,qtot (k) ) 

qmin-min (qmin, qtot ( k) ) 

continue 

qdi f-qmax-qmi n 

az-snormx*  f max 

bz-cwk»snormx*qdi f  *qdi f / ( fmax+1 . 0e-08*sign (1.0, f max) ) 
fwake-min (az,bz) 

if(  i  .gt.  itel  .and.  i  .It.  iteu  )  then 
fwake-az 
else 

fwa  ke-bz 
endif 

const-capk*ccp*fwake*reynnu 
do  k-1, kmax-1 

fkleb-1.0/ (1.0+5. 5* (ckleb‘snor (k) /snormx) “6) 
turmuo(k)-const*fkleb*q(l,i,k) 
enddo 

choose  from  the  inner  and  outer  eddy  viscosity  values 
ainner-1 . 0 
do  k-1, kmax-1 

if (turmui (k) . gt . turmuo (k) )  ainner-0.0 

turmu ( i , k) -ainner*turmui ( k) + (1 . 0-ainner ) ‘turmuo ( k) 

enddo 

continue 

eddy  is  .-caled  down  in  wake 
do  i  -  2, itel 
iu  -  imax  -  i  +  1 
fac  -  l./(l.+  (x  (i,  1)  -x  (itel,  1) )  “3) 
do  k  -  1, kmax-1 

turmu (i,k)  -  turmu (itel+1, k) *fac 

turmu  (iu,k)  -  turmu  (iteu-1,  k)  *fac 
enddo 
enddo 


> 

> 

> 


if(itr  .eq.  niter)  then 

open (unit-30, f ile-’ turmu. d' , form-' formatted' ) 

ipl  -  71 

ip2  -  100 

ip3  -  101 

ip4  -  102 

ip5  -  115 

write (30, ' (f 5.2, 5el4 . 6) ' )  (  float(k), 
turmu  (ipl,  k) ,  turmu  (ip2,k),  turmu  (ip3,  k) , 
turmu  (ip4 ,  k) ,  turmu  (ip5,  k) , 
k-2,  kmx  (1) ) 
endif 
return 
end 


subroutine  metric 
include  'corns. f' 

dimension  ajamax(nia) , ajamin (nia) 
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1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 
17  94 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 


data  eps  /l.e-26/ 

£******************************  ***********************************  ****** 
nt  -  1 
ng  -  1 

do  100  i»l,imx(nt) 
iml  -  i  -  1 
ipl  -  i  +  1 
do  100  k  -  l,krax(nt) 
i f (  1  .  eq.  1  )  then 
xxi  -  x(2,  k)  -  x  (1,  k) 
zxi  -  z(2,k)  -  z(l, k) 
elseif(  i  .eq.  imx(nt)  )  then 

xxi  -  x(imx(nt),k)  -  x  (imxl  (nt) ,  k) 
zxi  «  z(imx(nt),k)  -  z  (imxl  (nt) ,  k) 
else 

xxi  -  0.5  *  (  x(ipl,k)  -  x(iml,k)  ) 

zxi  -  0.5  *  (  z(ipl,k)  -  ztiml.k)  ) 

endif 

if(  k  .eq.  1  )  then 

xze  -  2.*x(i,2)  -  1.5*x(i,l)  -  0.5*x(i,3) 

zze  -  2.*z(i,2)  -  1.5*z(i,l)  -  0.5*z(i,3) 

elseifl  k  .eq.  kmx(nt)  )  then 

xze  -  1.5*x(i, knx(nt) )  -  2.*x (i, kmxl (nt) )  +  0.5*x (i, kmx2 (nt) ) 

zze  -  1.5*z (i, kmx (nt) )  -  2.*z (i, kmxl (nt) )  ♦  0.5*z(i, kmx2 (nt) ) 

else 

kml  -  k  -  1 

kpl  -  k  +  1 

xze  «  0.5  *  (  x(i,kpl)  -  x(i,knil)  ) 

zze  -  0.5  *  (  z(i,kpl)  -  z(i,kml)  ) 

endif 

xix(i,k)  -  zze 
xiz(i,k)  —xze 
zex(i,k)  —zxi 
zez(i,k)  -  xxi 

c  xix (i, k)  -  bjac  *  2ze 

c  xiz(i.k)  — bjac  *  xze 

c  zex(i,k)  —bjac  *  zxi 

c  zez(i,k)  -  b]ac  *  xxi 

xdot  -  omega  *  2(i,k) 
zdot  -  -omega  *  x(i,k) 

xit(i,k)  -  -xdot*xix (i, k)  -  zdot*xiz  (i,  k) 
zet(i.k)  -  -xdot*zex(i,k)  -  zdot*zez (i, k) 
yacob  -  (  xxi*zze  -  xze'zxi  ) 
if  (  yacob  .eq.  0.  )  then 

print  *,  'zero  jac  at  i,k 
yacob  -  eps 
endif 

aja(i,k)  -  1.0  /  yacob 
100  continue 

if(  oscil  .or.  ramp  )  return 

c*********************************************************************** 
c  compute  max  and  min  values  of  jacobian  and  check  for 

c  negative  values 

q********* ***************************************************  *********** 

ajmax  -  -1.0e35 

ajmin  -  1.0e35 

do  63  k  -  l,kmx(ng) 

do  63  i  •  l,imx(ng) 

ajmax  -  max(  ajmax, aja  (i,  k)  ) 

ajmin  -  mint  ajmin, aja  (i,  k)  ) 

63  continue 

write (6, 602)  ajmax, ajmin 
c.. write  negative  jacobians  and  stop 
if(  ajmin. It. 0.0  )  then 
do  64  k  -  1,  kmx  (ng) 
do  64  i  -  l,imx(ng) 
if  (  aja(i,k)  .It. 0.0  )  then 

write (6, 603)  aja(i,k),  i,  k 
stop 
end  if 

64  continue 
end  if 

602  format (  '  The  range  of  the  jacobian  iss 

>  '  jmax  -  ',el0.3,5x, ' jmin  -  *,el0.3,/  ) 

603  format(  '  lOx, 'negative  jacobian  -  ’,el0.3,lx, ’at  i,k 

>  2i5  ) 
return 
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1834 

C-- 

1835 

subroutine  eigen 

1836 

include  'corns. 

f ' 

1837 

almax-0.0 

1838 

c. . 

compute  the  maximum  eigenvalue 

1839 

nt  -  1 

1840 

ng  -  1 

1841 

do  10  i  •  2,  imxl(nt) 

1842 

ip  -  i  ♦  5 

1843 

im  -  i  -  : 

1844 

c. . 

evaluate  the  derivatives  of  x  and  z  for  the  line  *** 

1845 

do  20  k  - 

2,  kmxl(nt) 

1846 

kp 

k  ♦  1 

1847 

km  « 

k-1 

1848 

xta  -  0. 

0 

184  9 

zta  -  0. 

0 

1850 

xps  -  0. 

5*  (x  (ip,  k)  -  x  (im,  k) ) 

5*  (z(ip,k)  -  z(im,k)) 

1851 

zps  -  0 

1852 

xze  -  0. 

5*(x(i,kp)  -  x(i,  km) ) 

1853 

zze  -  0. 

5*(z(i,kp)  -  z(i,km) ) 

1854 

c. . 

compute  the  maximiAi  eigenvalue  *** 

1855 

bjac 

-  abs(1.0/(  xps* zze  -  xze*zps  )  ) 

1856 

ccc 

bjac 

-  aja (i, k) 

1857 

ccc 

psix; 

-  bjac  *  zze 

1858 

ccc 

psiz; 

-  -bjac  *  xze 

1859 

ccc 

zetx- 

-  -bjac  *  zps 

1860 

ccc 

zetz 

•  bjac  *  xps 

1861 

psixj  - 

xps 

1862 

psizj  - 

xze 

1863 

zetxj  - 

zps 

1864 

zetzj  - 

zze 

1865 

obyr 

-  1.0/q(l,i,k) 

1866 

rqsq 

-  obyr*  (q  (2,i,  k)**2  ♦  q(3,i,k)**2  ) 

1867 

pval 

-  gram  *(q(4,i,k)  -  0.5*rqsq) 

1868 

cval 

-  sqrt (ganma*pval*obyr) 

1869 

uvel 

«  obyr*q(2,i,k)  -  xta 

1870 

wvel 

«  obyr*q(3,i,k)  -  zta 

1871 

ucon 

-  abs (uvel*psix j  +  wvel*psizj) 

1872 

bz 

-  cval*sqrt(psixj**2  ♦  psizj**2) 

1873 

alpsi 

-  bjac* (ucon  +  bz) 

1874 

vcon 

-  abs (uvel* zetxj  ♦  wvel*zetzj) 

1875 

bz 

-  cval*sqrt (zetxj**2  +  zetzj**2) 

1876 

alzet 

-  bjac* (vcon  ♦  bz) 

1877 

almaxn 

-  sqrt (alpsi **2  ♦  alzet**2) 

1878 

almax 

-  max (almaxn,  almax) 

1879 

20 

continue 

1880 

10 

continue 

1881 

dtau-cour/almax 

1882 

if(  timeacc  )- 

then 

1883 

do  k-1,  kmx  (1) 

1884 

do  i-l,imx(l) 

1885 

dt  {i ,  k)  «  dtau 

1886 

enddo 

1887 

enddo 

1888 

else 

1889 

c. . 

evaluate  variable  dtau  scaling  based  on  Jacobian.. 

1890 

do  k-1,  kmx  (1) 

1891 

do  i-l,imx(l) 

1892 

sqjac  -  sqrt  (  aja(i,k)  ) 

1893 

dt  (i,  k)  -  ( 

1.0  ♦  dtau^sqjac  )/(  1.0+sqjac  ) 

1894 

enddo 

1895 

enddo 

1896 

endif 

1897 

print  *,  'L  max  -  almax 

1898 

write  (6,61)  dtau 

1899 

61 

format  (  '  dtau  -  f 12. B) 

1900 

1901 

1902 

return 

end 

1903 

subroutine  loads 

1904 

Comment  ! ! ! 

1905 

** 

THIS  SUBROUTINE  IS  INCORRECT  ! ! ! 

1906 

** 

Must  use  non-rotated  grid  x(i,k),  z(i,k) 

1907 

** 

See  wrcl .  f 

1908 

include  'corns 

f 

1909 

dimension  cp(nia)  ,  cf(nia),  txzs(nia),  yplus(nia) 

1910 

itel  -  iwks(l) 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 


iteu  •  iwke  (1) 
c.  .coinput*  pressure  loads 

epe  •  1.  /  (  0.5*rinf*uinf**2) 

do  100  1  -  leal,  Iteu 
p  -  gum*  (  q(4,i,l) 

>  -  .  5* (q (2,  i, 1) **2  ♦  q(3,i,l)**2)/q(l,i,l>  ) 
cp(i)  -  -  (p  -  pinf)  *  epe 

100  continue 
cn  -0.0 
eh  “0.0 
cm  -0.0 

do  25  i“itel, iteu-1 

dx  -  x(i+l,  1)  -  x(i,  1) 
dz  -  z(i+l,l)  -  z(i,l) 
avep  -  0.5*  (  cp(i+l)+cp(i)  ) 
cn  -  cn  ♦  avcp*dx 
eh  -  eh  -  avcp*dz 
c..  cm  about  259  chord 

cm  -  cm  -  avep  *  (  dz*z(i,l)  ♦  dx*  (x  (i,  1) -.25)  ) 

25  continue 

cl  -  cn*cos{alfa)  -  ch*sin(alfa) 
cd  -  cn*sin(alfa)  ♦  ch*cos(alfa) 
c.. compute  viscous  loads 
do  10  i  “itel,  iteu 
u  xi  -  0.0 

u~ze  -  q(2,i,2)/q(l,i,2)  -  q(2,  i,  1) /q  (1,  i,  1) 
w  xi  -  0.0 

w ~ze  -  q(3,i,2)/q(l,i,2)  -  q(3,i,l)/q(l,i,l) 
xT_x  -  xix(i,l)*aja(i,l) 
ze  x  -  zex(i,l)*aja(i,l) 
xi  z  -  xiz(i,l)*aja(i,l) 
ze  z  -  zex(i,l)*aja(i,l) 
u_x  -  u_xi  *  xi_x  +  u_ze  *  ze_x 

w_x  -  w^xi  *  xi~x  ♦  v_ze  *  ze_x 

u_z  -  u_xi  *  xi_z  +  u_ze  *  ze_z 

w  z  -  w~xi  *  xi  z  *  w_ze  *  2e_z 

vTscl  ~  -  0.5T(  vismu(i,l)  +  vismu(i,2)  ) 
viset  -  0.5* (  turmu(i,l)  ♦  turmu(i,2)  ) 
viseto  -  (viscl  ♦  viset)  /  reynnu 
txzs(i)  -  (  (viseto* (u  z  +  v_x))  /  (0.5  *  amach**2)  ) 
c..skin  friction 

sn  -  sqrt  (  (x  (i, 2) -x (i,  3) )  **2  ♦  (z  (i, 2) -z  (i, 3) )  *»2  ) 
rho  -  q(i,l,l) 

yplus(i)  -  sqrt(  abs(txzsli))  *  rho  )  *  sn  /  viseto 
dx  -  (x (i+1, 1)  -  x(i,l)) 
dz  -  (z (i+1, 1)  -  z(i,l)) 
cf(i)  -  -txzs(i)*(dz/abs(dz))  *  1000 
10  continue 
env  -  0. 

chv  -  0. 

cmv  -  0. 

do  20  i  -  itel,  iteu-l 
dx  -  (x (i+1, 1)  -  x(i,l)) 
dz  -  (z(i+l,l)  -  z(i,l) ) 
avtxzs  -  0 . 5*  (  txzs (i+1) +txzs (i)  ) 
env  -  env  +  avtxzs+dz 

chv  -  chv  +  avtxzs*dx 

cmv  -  cmv  +  avtxzs  *  (dx  *  z(i,l)  -  dz  *  x(i,l)  ) 

20  continue 

civ  -  cnv*cos (alfa)  -  chv*sin(alfa) 

edv  -  cnv*sin(alfa)  +  chv*cos (alfa) 

write (9, 101)  iter,  alfad,  time,  amach,  reynph, 

>  itel,  iteu,  cl,cd,cm,  clv,cdv,cmv, 

>  (cp(i),  i-itel,iteu), (cf (i),  i-itel,iteu) 

101  format (il0,4el2. 4,  2i5/  6el2.4  /  (6el2.3)  ) 

return 

end 


subroutine  grmove (dalfa) 

include  ' corns. f 

if(  dalfa  .eq.  0.)  return 

ca  -  cost  dalfa  ) 

sa  —sin(  dalfa  ) 

do  10  i“l,imx(l) 

do  10  k“l,kmx(l) 

xold  “  x (i,  k) 

zold  «  z(i,k) 

x(i,k)  -  xold  *  ca  -  zold  +  sa 
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1969 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 
2007 
2006 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 
2017 
2016 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 


z(i,k)  -  zold  *  ca  ♦  xold  *  sa 
10  continue 

call  Metric 

return 

end 


subroutine  qio(io) 
include  'corns. f* 

IT  (  10  .eq.  0)  THEN 

open (uni t«32, file-' ends .d', form- ’unformatted’) 

write  (32)  imx(l),  kmx(l),  ksi 

write  (32)  amach.alfad, reynph,  time,  iter 

write  (32)  (((  q(l,i,k),  i-l.imx(l)  ),  k-l,k*x(l)  ),  1-1,4) 
close (32) 

ELSEIF  (10  .eq.  10)  THEN 

write  (8)  imx(l),  kmx(l),  ksi 

write  (8)  amach.alfad, reynph, time, iter 

write  (8)  (((  q(l,i,k),  i«l,inx(l)  ),  k-l,kmx(l)  ),  1-1,4) 
ELSE IF  (10  .eq.  1)  THEN 

open (unit-31,  file- *  strs .d’ , form-  • unformatted* , status- 'old* ) 

read  (31)  imx(l),  kmx(l),  ksi 

read  (31)  amachr, al fad, reynphr, time,  iter 

read  (31)  (((  q(l,i,k),  i-l,imx(l)  ),  k-l,kmx(l)  ),  1-1,4) 

close (31) 

kso  -  kmx(l) 

ELSEIF  (10  .eq.  2)  THEN 

open (unit-31, file-'strs.d', form-' formatted* .status-' old* ) 

read  (31,*)  imx(l),  kmx(l),  ksi 

read  (31,*)  amachr, alfad, reynphr, time, iter 

read  (31,*)  (((  q(l,i,k),  i-l,imx(l)  ),  k-l,kmx(l)  ),  1-1,4) 

close  (31) 

kso  -  kmx(l) 

ENDIF 

return 

end 


246 


Appendix  C 


APPENDIX  D 


A.  MICHEL'S  EMPIRICAL  CORRELATION  METHOD 

A  problem  was  discovered  with  the  subroutine  'output'  in 
BL2D.F  that  calculates  the  transition  location  using  the 
Michel's  empirical  correlation.  The  computed  transition 
location  was  found  to  be  computer  and  input  transition  point 
dependent.  This  apparent  computational  error  did  not  affect 
any  other  computational  results. 

The  Michel  empirical  correlation  is  based  on 
incompressible,  constant  property  flow  over  a  flat  plate,  and 
is  presented  in  Equation  D.l  with  chord  (c)  assumed  to  be  one 
(Cebeci  and  Bradshaw  [Ref.  5]). 
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! 


The  functional  relationship 
transition  Reynolds  number 
Solving  Equations  D.l  and 
results  shown  in  Figure  D.l. 


between  momentum  thickness  and 
is  presented  in  Equation  D.3. 
D.3  simultaneously  yields  the 


0.664  (D.3) 


An  alternate  approach  for  the  solution  of  Retr  is  shown  in 
Equation  D.4  and  D.5  with  p/pe=l  for  incompressible  flow. 
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The  BL2D.F  program  uses  Equations  D.l  and  D.4  to  find  the 
transition  location.  Each  panel  on  a  surface  is  checked  by 
computing  the  transition  Reynolds  number,  momentum  thickness, 
and  Equations  D.l  and  D.4.  The  panel  where  Equation  D.l  is 
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approximately  equal  to  Equation  D.4  is  identified  as  the 
transition  location  (surface  distance  from  the  input 
stagnation  point) .  Both  the  Indigo  and  Stardent  computers 
compute  Equation  D.l  exactly  the  same  as  can  be  observed  in 
Figures  D.2  and  D.3.  However,  the  summing  routines  used  to 
calculate  Equations  D.4  and  D.5  are  computed  differently 
depending  on  the  machine  used  due  to  precision  differences, 
thus  producing  different  transition  locations  with  the  same 
input  parameters  (Figure  D.3). 
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